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CUPON  OFERTA 

Aproveche  ahora  esta  magnífica 
oportunidad  para  suscribirse 
a  MSX  SOFT 
MAGAZINE. 

Envíe  HOY  MISMO  este  cupón. 

Inmediatamente  empezará  a  recibir  sus  ejemplares  MSX  SOFT  MAGAZI- 
NE  y  así  durante  I  año  (12  ejemplares). 

El  importe  lo  abonaré:  POR  CHEQUE  □  CONTRA  REEMBOLSO  □ 
GIRO  POSTAL  □ 
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ahora  sólo 

6.545  ptas. 
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CIUDAD 
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NOTICIERO 
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BIBLIOGRAFIA 
DE  SOFT  -  MSX 

¿Alguien  dijo  que  no  en¬ 
contraba  Soft  MSX  en  los  co¬ 
mercios?  Un  industal  inglés 
(como  siempre,  las  solucio¬ 
nes  tienen  que  llegar  allende 
nuestras  fronteras) ,  decíamos 
que  un  industrial  ha  encontra¬ 
do  una  solución  a  este  proble¬ 
ma.  La  MIDLAND  COM¬ 
PUTER  LIBRARY  ha  orga¬ 
nizado  un  departamento  es¬ 
pecializado  en  MSX,  donde 
se  pueden  encontrar  DISK 
DRIVES,  impresoras,  así 
como  gran  cantidad  de  Soft  - 

MSX  en  una  continua  actua¬ 
lización. 


impresora 

«ECONOMICA» 
DE  GRANDES 
PRESTACIONES 


MICRO  PERIPHERALS 
anuncia  la  salida  al  mercado 
de  su  nueva  impresora 
CRP  -  40,  que  con  un  precio 
bastante  asequible  (al  menos 
en  Inglaterra)  que  ronda  las 
17. 000  pesetas,  ofrece  más 
prestaciones  envidiables 
como  puede  ser  la  posibilidad 
de  escribir  40  u  80  columnas, 
escritura  en  color  y  posibili¬ 
dad  de  uso  a  modo  de  Plotter, 
interface  Centronics,  papel  de 
4  'A  pulgadas,  funcionando 
con  pilas  o  a  la  red.  En  defini¬ 
tiva,  una  maravilla  de  la  técni¬ 
ca,  con  un  precio  más  que 
apañadito...,  la  pena  es  que 
una  vez  en  nuestro  país,  el 
precio  será  irreconocible. 


*■  *-  f-VV 

SUPER  Dw 
TOR  MSX  EN 
EUROPA 

rtssuss- 

Sierra,  colocar  un  „hm 

fíca EuWpa- 
Jica  que  a  partir  de  ya 

uUr°fa.  disP°ne  de  un  h 
bre  dedlcado  exclusivam 

SoftClltari  d  desarr°Ho 
3’  Portas  casas  especi 
acias,  del  mismo  modo  a 
gira  todas  las  ventas  y  prar¡ 
ciones  del  sistema.  El  nonti 
de  este  superdirector  no 
°tro  que  TOM  SATO  pL 
naje  ya  muy  conocido  en 
mundo  de  la  microinformá 


LEVEL  -  9  MA¬ 
GIA,  LEYENDAS 
Y  MONSTRUOS 

El  conocido  juego  de  la  fir¬ 
ma  LEVEL  -  9  Red  Moon, 
por  fin  ha  sido  convertido  al 
sistema  MSX.  Este  juego  no 
es  sino  una  aventura  gráfica 
con  la  que  puedes  retroceder 
a  la  época  en  la  que  la  Magia 
lo  dominaba  todo  y  los  mons¬ 
truos  guardaban  celosamente 
los  tesoros ,  donde  tú,  armado 
tan  solo  con  tus  conjuros ,  de¬ 
berás  recuperar  al  preciado 
«cristal  lunar». 

Del  mismo  modo,  repre¬ 
sentantes  de  dicha  firma  nos 
comunican  que  están  dando 
los  últimos  retoques  al  pro¬ 
grama  THE  WORN  IN  P A- 
RADISE,  una  aventura  de 
política-ficción  situada  en  el 
tiempo  cien  años  después  del 
«RETURN  TO  EDEN». 
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CURSO  BASIC 


CURSO  DE  PROGRAMACION 


En  contra  de  lo  que,  por  motivos  ajenos  a  nuestra 
voluntad,  decíamos  en  el  número  anterior,  el  sistema 
de  programación  que  veremos  en  este  curso  no  será  el 
lineal. 

Vamos  a  intentar  que  sepáis  algo 
sobre  la  que  conocemos  como  pro¬ 
gramación  modular  (es  decir,  pro¬ 
gramas  compuestos  por  módulos), 
que,  como  veremos,  nos  resultará  de 
una  gran  claridad  cara  a  la  programa¬ 
ción  y  a  la  vez  útilísimo  a  la  hora  de 
corregir  o  depurar  un  programa. 


Vamos  a  tratar,  como  primer 
paso,  un  programa  tan  fácil  de  enten¬ 
der  como  puede  ser  una  calculadora 
que  ejecute  sumas  y  restas. 

Y  veremos  por  separado  primero 
la  línea  principal  del  programa  y, 
posteriormente,  cada  uno  de  los  mó¬ 
dulos  o  subrutinas  de  que  consta  el 
programa. 

Pero  antes  nos  hemos  de  hacer  la 
siguiente  pregunta:  ¿Por  qué  la  pro¬ 
gramación  modular?  Hasta  hace 
poco  más  de  una  década  la  tarea  de 
los  programadores  estaba  muy  limi¬ 
tada  por  el  hardware  utilizado,  fruto 
de  los  comienzos  tecnológicos  infor¬ 
máticos;  en  esta  época  la  programa¬ 
ción  era  como  un  conjunto  de  reglas 
y  trucos  casi  siempre  personales  que 
se  traducía  en  pura  artesanía  del  pro¬ 
gramador,  y  a  esto  se  unía  además  la 
utilización  de  lenguajes  de  progra¬ 
mación  de  bajo  nivel... 

Pero  poco  a  poco  los  sistemas  y 
aplicaciones  se  fueron  haciendo  más 
y  más  complejos,  por  lo  que  los  pro¬ 
gramas  necesitaban  ser  cada  vez  de 
mayor  fiabilidad  y,  debido  a  la  no 
adecuación  de  los  métodos  tradicio¬ 
nales,  la  programación  llegó  a  una  si¬ 
tuación  asfixiante.  Muchos  autores 
llamaron  a  esta  situación  como  de 
«crisis»,  debido  al  coste  del  software 
y  a  su  calidad. 

El  precio  del  software  elevaba,  en 
demasía,  el  coste  de  un  sistema  infor¬ 
mático,  disminuyendo  a  su  vez  la 
producción  debido  a  la  gran  labor  de 
las  pruebas  y  la  depuración  de  erro¬ 
res  que,  en  algunos  casos,  era  largo, 
pesado  y  caro,  sobre  todo  caro. 

Veamos  ahora  qué  características 
deben  configurar  la  calidad  de  un 
software. 


—  Ausencia  de  errores. 

—  Un  programa  debe  hacer  lo  que 
de  él  se  requiere  y  no  otras  cosas. 

—  Claridad  de  diseño. 

—  Mínimo  esfuerzo  de  adaptación  a 
cambios  que  se  le  deban  intro¬ 
ducir. 

—  Buena  documentación. 

Esto  se  puede  conseguir  reducien¬ 
do  la  complejidad  del  software  con 
una  verificación  cuando  estamos  es¬ 
cribiendo  un  programa,  y  una  forma 
de  hacerlo  nos  lleva,  entre  otros  mé¬ 
todos,  a  la  programación  modular. 

¿A  QUE  LLAMAMOS 
SUBRUTINA? 

Cuando  en  un  programa  necesita¬ 
mos  realizar  determinadas  operacio¬ 
nes  en  distintas  partes  del  mismo, 
construiremos  un  «trozo»  de  progra¬ 
ma  o  subprograma  al  que  accedere¬ 
mos  desde  donde  nos  interese  y  re¬ 
tornando  al  programa  principal  una 
vez  ejecutado  el  subprograma  o  su¬ 
brutina. 

¿COMO  HACEMOS  ESTO? 

Cuando  queremos  acceder  a  la  su¬ 
brutina  nos  iremos  con  GOSUB  des¬ 
de  cualquier  parte  del  programa  sim¬ 
plemente  diciendo  GO  SUB  NNNN, 
siendo  NNNN  el  número  de  la  ins¬ 
trucción  de  comienzo  de  la  subruti¬ 
na,  y  no  debemos  nunca  olvidar  que 
la  última  instrucción  siempre  será 
RETURN. 

Veremos  un  ejemplo  gráfico: 
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Notemos,  antes  de  continuar,  la 
diferencia  existente  entre  GOTO  y 
GOSUB: 

Ambas  saltan  a  otro  punto  deter¬ 
minado  del  programa,  pero  GOTO 
continúa  la  ejecución  del  programa 
en  la  instrucción  a  que  se  envió  (sin 
vuelta),  mientras  que  GOSUB  eje¬ 
cuta  unas  instrucciones  y  al  encon¬ 
trar  la  palabra  clave  RETURN  vuel¬ 
ve  a  la  instrucción  siguiente  al  GO¬ 
SUB  de  donde  se  envió. 

La  sentencia  GOSUB,  al  ejecutar¬ 
se,  apunta  una  zona  de  memoria  lla¬ 
mada  STACK  o  PILA  DE  GOSUB, 
donde  se  almacena  la  dirección  de  re¬ 
torno,  que  es  la  línea,  y  sentencia 
dentro  de  la  línea  de  la  instrucción 
GOSUB,  para  que  al  ejecutarse  la 
última  línea  de  la  subrutina  (recuer¬ 
da  que  era  RETURN)  se  recupere  la 
dirección  de  retorno  almacenada  en 
la  memoria,  y  el  programa  continúa 
en  la  instrucción  siguiente. 

Sería  muy  conveniente  que  al  es¬ 
cribir  tus  programas  los  documentes 
lo  mej  or  posible ,  y  en  el  caso  de  «mo¬ 
dular»  un  programa,  en  cada  línea  de 
GOSUB  pongas  dos  puntos  (:)  y  a 
continuación  un  REM  (comentario) 
que  te  pueda  ayudar  cuando  revises 
el  programa: 

Ejemplo: 

50  GOSUB  1000:  REM  voy  a 
calcular  suma; 
o  bien, 

45  REM  voy  a  calcular  suma 

50  GOSUB  1000. 

También  te  será  muy  útil  que,  al 
principio  de  cada  subrutina  pongas 
unos  comentarios  parecidos  a  estos: 

1000  REM  ☆☆☆☆☆☆☆☆☆☆ 

1010  REM  CALCULA  SUMA 
1020  REM  ☆☆☆☆☆☆☆☆☆☆ 
1030  LETA  =  B+C... 


RETURN 


RETURN 


Servicio  de  Información  al 
simpatizante  y  usuario 

TeL  (91)  413  21  62 
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PHILIPS 


ORDENADOR  PHILIPS 
POSEE  FACILIDADES 
EXTRAORDINARIAS  PARA  LAS 
EN  COLOR,  Y  FORMA  LA 
PARA  UN  SISTEMA  PERFECTO  Y 
AMPLIABLE  QUE  CUMPLE  LA  NORMA 
STANDARD  MUNDIAL  MSX. 


Los  ordenadores  PHILIPS  MSX  disponen  de  una  total 
capacidad  gráfica  en  color  y  generación  de  música,  y  se 
integran  de  forma  ideal  con  las  facilidades  educativas  del  LOGO. 

El  MSX-LOGO  de  PHILIPS  es  el  único  que  puede  presentar 
hasta  30  tortugas,  y  cada  una  adoptando  una  figura  entre 
60  definibles  por  el  usuario  mediante  el  editor  incorporado; 
admite  hasta  16  colores,  puede  emitir  por  tres  canales 
musicales  y  otro  más  para  efectos  sonoros,  el  movimiento  de 
figuras  es  autónomo,  detecta  choques  de  ‘tortugas’  y  otros 
eventos,  realiza  un  completo  tratamiento  de  LISTAS  y 
propiedades. 


PHILIPS  ofrece  lo  que  el  poderoso  mundo  del 
Stándard  MSX  merece:  lo  mejor.  Y  esto  se 
concreta  en  sus  equipos,  en  sus  programas,  y 
en  el  valor  del  dinero  desembolsado.  PHILIPS 
integra. 


Aprender  puede  ser  divertido,  con  un  ordenador 
PHILIPS  MSX  y  el  lenguaje  de  programación  LOGO. 

Porque  LOGO  ha  sido  especialmente  desarrollado 
para  permitir  a  los  jóvenes  usuarios,  iniciarse 
rápidamente  en  informática.  Es  increíblemente  fácil  de 
usar,  con  sencillos  comandos  en  el  idioma  “nativo”  del 
usuario. 

Además  el  MSX-LOGO  de  PHILIPS  le  da  acción  con 
color  y  sonido;  lo  que  ayuda  a  generar  y  mantener  su 
atracción  en  el  aprendizaje.  Por  eso  el  PHILIPS  MSX-LOGO 
es  el  favorito  en  todos  los  colegios  y  escuelas  del  mundo. 

Y  aunque  LOGO  es  recreativo,  también  constituye  el 
fundamento  sobre  el  cual  el  usuario  adquirirá  mayor 
destreza  en  la  solución  de  problemas,  y  es  en  definitiva 
el  sólido  y  excelente  cimiento  para  estudios  más 
avanzados. 

Como  el  propio  Dr.  Seymour  Papert,  inventor  del 
LOGO  declaró:  “MSX  y  LOGO  forman  el  matrimonio  más 
ideal  que  podamos  imaginar.  Estando  ambos  orientados 

a  gráficos,  el  MSX 
apoya  todo  lo  que 
el  LOGO  ha  de 
ofrecer  en 
cuanto  a 
música  y 
animación  de 
figuras”. 


LA  LECTO- 

GRABADORA  DE 
DATOS  EN  CINTA 
.  CASSETTE 
f  CONSTITUYE  EL 
f  EQUIPO  IDEAL  DE 
BAJO  COSTE 
PARA  EL 

ALMACENAMIENTO  DE 
INFORMACION  -DATOS  Y 
PROGRAMA-  EN  TODOS  LOS 
ORDENADORES  MSX. 


PHILIPS 


CURSO  BASIC 


VISUALIZAR 

INSTRUCCIONES 


ELEGIR 

OPCION 


Así,  cuando  repases  el  programa 
podrás  ver  rápidamente  dónde  em¬ 
pieza  y  termina  cada  subrutina.  Es 
conveniente  que  las  subrutinas  las  es¬ 
cribas  siempre  al  final  del  programa 
principal,  para  que  éste  no  tenga  sal¬ 
tos  innecesarios. 

Pueden  existir  subrutinas  incondi¬ 
cionales  y  condicionales;  las  prime¬ 
ras  se  ejecutan  siempre: 

GOSUB  1000 

Las  segundas  necesitan  de  una 
condición  previa  para  su  ejecución: 

IF  =  25  THEN  GOSUB  1000 

que  sólo  se  ejecutará  cuando  el  valor 
de  X  sea  25. 

Pero  no  sólo  desde  el  programa 
principal  se  puede  saltar  a  una  su¬ 
brutina,  sino  que  tranquilamente  y 
mediante  el  STACK  (pila  de  GO¬ 
SUB),  que  controla  las  idas  y  veni¬ 
das,  podemos  saltar  de  una  a  otra  su¬ 
brutina. 


E 


INTRODUCCION 
DE  DATOS 
PARA  SU 
CALCULO 


10 

20 

30 

40 

50 

60 


GOSUB  200 


GOSUB  200 


200 
210 

220  GOSUB  300 
-  230  RETURN 


300 

310 

320 


RETURN 


Y  así  sucesivamente,  pero  siempre 
cuidado  de  controlar  bien  retornos 
después  de  cada  GOSUB. 

Sólo  nos  queda  para  terminar,  an¬ 
tes  de  ver  un  programa  ejemplo,  que 
es  necesario  separar  el  programa 
principal  y  las  subrutinas  mediante 
sentencias  END,  STOP  o  GOTO 
NNNN. 

Veamos  ahora  el  ejemplo  que  os 
aclarará  aún  más  las  ideas. 


SUMA  RESTA 

(b  Ó 


DIAGRAMA  GENERAL 


P 


S 


OBTENER 

RESULTAD! 
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MSX 


Como  comentábamos  pre¬ 
viamente,  así  es  mucho  más  fá¬ 
cil  depurar  un  programa. 

La  rama  principal  ocupa  las 
líneas  5-150,  y  en  este  caso  des¬ 
de  allí  nos  vamos  a  cada  una  de 
las  subrutinas  que  ocupan  las  lí¬ 
neas  siguientes: 


La  introducción  del  primer 
dato  desde  1000  a  1040. 

La  rutina  de  sumas  sucesivas 
empieza  en  la  línea  2000  y  llega 
a  la  2080. 

Y  para  terminar,  la  rutina  de 
restas  desde  la  línea  3000  hasta 
la  3080. 


Como  véis  hemos  separado 
cada  una  de  las  partes  del  pro¬ 
grama,  así  si  nos  falla  una  ins¬ 
trucción,  solo  tendremos  que 
depurar  la  rutina  correspon¬ 
diente,  ¿os  parecer  más  fácil? 
¡Naturalmente! 


También  la  instrucción  re- 
turn  está  con  una  línea  en  blan¬ 
co  para  que  no  se  olvida  nunca. 

Ahora  os  propongo  una  am¬ 
pliación  similar  para  la  multipli¬ 
cación  y  división  ¿lo  intenta¬ 
réis,  verdad?  ¡Hasta  la  próxima 
y  suerte! 


5  CLS 

10  REM  SUMAR  RESTAR 
20  LOCATE  5,6 

30  PRINT  "PROGRAMA  EJEMPLO” 

40  LOCATE  5,7 

50  PRINT  "TRATAMIENTO  SUBRUTINAS" 

60  R=0 

70  REM  VAMOS  A  INTRODUCIR  PRIMER  DATO 
80  GOSUB  1000 
90  CLS 

99  PRINT 

100  INPUT  "PARA  SUMAR  RESTAR  PULSA  S/R" ; O* 

101  PRINT 

110  IF  0*=”S"  THEN  GOSUB  2000 
120  IF  0$="R”  THEN  GOSUB  3000 
130  INPUT  "QUIERES  MAS  OPERACIONES  S/N";  M* 

140  IF  M$="S"  THEN  GOTO  100  u  „ 

150  IF  M$=“N"  THEN  PRINT  "HEMOS  TERMINADO, EL  RESULTADO  ES  :";R:STOP 


1000 

1010 

1020 

1030 

1035 


REM  ******* X XXX  X  X*X**X  X X  X X ***** 
REM  ^INTRODUCCION  PRIMER  DATO  * 
REM 
INPt 
R=R+A 


1040  RETURN 


¡III  I|H 

2030  INPUT  "DAME  UN  DATO  PARA  SUMAR  "JS 
2040  R=R+S 

2044  PRINT 

2045  PRINT  "RESULTADO .  "?R 

2046  PRINT 

2050  INPUT  "MAS  NUMEROS  PARA  SUMAR  S/N  ' 
2060  IF  M$="S"  GOTO  2030 

2080  RETURN 


,  M$ 


3000 

3010 

3020 

3030 

3040 

3044 

3045 

3046 
3050 
3060 


REM  *****  *******  ****** ********* 
REM  *DATOS  PARA  RESTAR  * 

REM  ****** X X  X  X  X  X  X  ******** XXX *** 
INPUT  "DAME  UN  DATO  PARA  RESTAR* 
R=R-S 
PRINT 
PRINT 
PRINT 
INPUT 


*S 


•RESULTADO. 


;r 


■MAS  NUMEROS  PARA  RESTAR  S/N  " 5 M* 


IF  M$="S"  GOTO  3030 


3080  RETURN 
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PROGRAMAS 


funciones 


x 


10  REM  ****  PROGRAMA: FUNGI ONES**** 

20  REM  ****  LUIS  SANGUINO-COPYRIGHT  MONSER 
30  REM  ***  EJES  DE  ORDENADAS  Y  ABCISAS  *** 

40  COLOR  1,15,4 
50  SCREEN  2 

60  LINE ( 127,0) - ( 127, 192) , 1 
70  LINE  (0,96) - (255,96) , i 
80  LINE  ( 2/, 93) - ( 27, 99) , 1 
90  LINE  (52, 93) -(52, 99) ,1 
100  LINE  (77,93) -(77,99) ,1 
110  LINE  (102,93) - (102,99) , 1 
120  LINE  (152,93) -(152,99) , 1 
130  LINE  (252,93) - (252,99) , 1 
140  LINE  (177,93) -(177,99) , 1 
150  LINE  (202,93) - (202,99) , 1 
160  LINE  (227.93) -(227,99) , 1 
170  LINE  (2,93) -  (2, 99) , 1 
180  LINE  (124,21) -(130,21) , 1 
190  LINE  (124,46) - (130,46) , 1 
200  LINE  (124,71) -(130,71) , 1 
210  LINE  (124, 121) - (130, 121) , 1 
220  LINE  (124, 146) -(130, 146) , 1 
230  LINE  (124, 171) - (130. 171) , 1 
240  REM  ****  CAMPO  DE  RPRESENTACION  DE  LAS  GRAFICAS  **** 

250  FOR  X=-5  TO  5  STEP  .02 
260  IF  X=0  GOTO  370 

270  REM  ****  FUNCIONES  A  REPRESENTAR  **** 

280  Y=SIN ( X) 

290  H=(X"3) -3*<XA2) -X+3 

300  REM  ****  POSICIONAMIENTO  EN  PANTALLA  **** 

310  J=127+(X*25) 

320  1=96+ (-Y*25) 

330  M=96+(-H*25) 

340  REM  ****  PUNTOS  DE  REPRESENTACION  **** 

350  PSET  (J, I) ,8 
360  PSET  ( J , M) ,2 
370  NEXT 

380  FOR  V= 1  TO  3000: NEXT  V 

390  SCREEN  1 : KEY  OFF : CLS: LOCATE0, 12: PRI NT "QUIERES  REPRESENTAR  OTRAS  FUNCIONES  S/ 

N" 

400  A$=INKEY* 

410  IF  A*="S"  OR  A*="sH  THEN  450 
420  IF  A$=-N"  THEN  440 
430  GOTO  400 
440  CLS: END 

450  CLS:  LOCATE  0,2: PRINT"  ******  INSTRUCCIONES  ******  " 

460  LOCATE  0. 4: PRINT"***  LAS  NUEVAS  FUNCIONES  A  REPRESENTAR  DEBEN  SER  INTRODUCID 
AS  EN  LAS  LINEAS  280 (ROJA)  Y  290 ( AZUL ) DEBIENDO  ESTAR  EXPRESADAS  SEGUN  LA  TERMINO 
LOGIA  BASIC-MICROSOF  *** 

470  PRINT: PRINT-***  NO  DEBE  MODIFICARSE  NADA  A  LA  IZQUIERDA  DE  LAS  IGUALDADES  DE 
AMBAS  LINEAS  ***" 

480  PRINT: PRINT  *****  LAS  FUNCIONES  SE  REPRESENTAN  PARA  VALORES  DE  X  COMPRENDIDO 
S  ENTRE  -5  Y  +5  **** 

490  LOCATE  0,20: LIST  280-290 


Si  te  interesan  las 
matemáticas  aqui  tienes  un 
pequeño  programa  que  te 
permite  la  representación 
gráfica  de  dos  funciones 
simultáneamente.  Las 
ecuaciones  de  estas  dos 
funciones  vienen  dadas  en 
las  líneas  del  listado  n.°  280 
y  290,  si  deseas  realizar 
cualquier  otra  gráfica  debes 
modificar  dichas  líneas 
introduciendo  en  ellas  las 
nuevas  ecuaciones  a 
representar. 

A  continuación  te 
indicamos  algunos  sencillos 
ejemplos  que  puedes 
introducir: 

Y  =  SIN  (X) 

Y  =  1/X 

Y  =  COS  (X) 

Y  =  TAN  (X) 

Y  =  1/SIN  (X) 

Y  =  LOG  (X2) 
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Software  MSX 

Gestión  v  Productividad 


New  Media  Systems 


Disfrute  de  las  tareas  de  cada  día,  con  un  ordenador 
PHILIPS  MSX  y  un  programa  de  productividad 


LA  UNIDAD  DE  DISCO  DE 
ACCESO  DIRECTO 
VY0010/1 1  CON 
DISKETTES  DE  3.5"  UNE 
A  SU  GRAN 
CAPACIDAD  DE 
ALMACENAMIENTO 
UNA  VELOCIDAD  DE 
TRANSFERENCIA  DE 
250  KBITS  POR 
SEGUNDO. 


Un  ordenador  PHILIPS  MSX  hará  que 
muchas  de  las  gestiones  cotidianas  sean  más 
llevaderas  y  más  productivas.  Como  la 
preparación  de  la  correspondencia,  el  análisis 
de  informes,  el  mantenimiento  de  los  ficheros  de 
clientes  y  proveedores,  la  confección  de 
presupuestos,  la  emisión  de  facturas  y  recibos,  y 
en  suma,  la  administración  de  pequeñas 
industrias  y  negocios. 

El  amplio  surtido  de  programas  MSX 
orientados  hacia  la  gestión,  son  las  soluciones 
que  ahorran  tiempo,  esfuerzo  y  evitan  errores  en 
estos  trabajos  y  muchos  similares.  La  versión 
única  de  PHILIPS  para  el  sistema  operativo  en 

disquette  MSX-DOS,  con  su  “auxiliar  de 
usuario”  hace  más  cómodo  su  trabajo 
ofreciendo  la  “selección  por  menú” 
de  las  operaciones  a  realizar  y 
“páginas  informativas”  de  ayuda 
al  usuario. 

Además  de  esta 
enorme  variedad  de 


LA  NUEVA  IMPRESORA  DE  MATRIZ 
PARA  CORRESPONDENCIA  PHILIPS  VW0030 
ES  TOTALMENTE  VERSATIL  CON  AMPLIA  SELECCION 
DE  TAMAÑOS,  ESTILOS  Y  REALCES  EN  LA  ESCRITURA.  EN 
HOJAS  SUELTAS  O  PAPEL  CONTINUO. 


*trir>0> ; 
r£8ft£RTS  i.nuero.^A«^ 


programas  de  productividad, PHILIPS  tiene  mucho 
más  que  ofertar  en  el  mundo  de  la  informática: 
potentes  lenguajes  de  programación  como  el 
Pascal,  o  como  el  inigualable  y  universalmente 
conocido  MSX-LOGO,  además  de  sus  programas 
educativo-recreativos. 

Los  programas  PHILIPS  están  respaldados 
por  su  gama  de  periféricos,  incluyendo 
impresoras  de  calidad  para  correspondencia, 
unidades  de  disco  de  alta  velocidad  de 
transferencia  y  gran  capacidad  de 
almacenamiento,  monitores  monocromo  y  de 
color,  cartuchos  de  interface  serie,  y  muchos  más. 

PHILIPS  ofrece  lo  que  el  poderoso  mundo 
del  standard  MSX  merece:  lo  mejor.  Y  esto 
se  concreta  en  sus  equipos,  en  sus  ^ 
programas,  y  en  el  valor  del  dinero  má 
desembolsado.  PHILIPS  integra. 

i 

PHILIPS 


Servicio  de  Información  al 
simpatizante  y  usuario 

r-)h 


MIS 


PROGRAMAS 


ROBO  EN  EL  MUSEO 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


*  ****  ROBO  EN  EL  MUSEO  **** 

> 

•  POR  ALEJANDRO  FERNANDEZ  BRIZUELA 

’  1985 - 

GOSUB  640 

COLORI  0, 6 , l:SCREEN2,0,0 
LINE(0, 175) - (255, 191) , 1 ,  BF 
LINE ( 105, 175) -( 150, 181 ) ,2, BF 
L I NE ( 5 , 180) - (250, 190) , 2, BF 


0=3:6=95: w=20: E=i20: &=iz0: x=120: Y=170: 1=3:  M=2:  N=2:  TIMB=0:  G=é 
PSET (0, 170) , 6: color  l4:PRlNTttl, ' ooopqooooqqpq  qpqooqooooppqpqp* 

FOR  A*4=0  TO  175  STEP  8 
PSET  (0,  A% )  :  PRINTfl  1  ,  “PD" 

PSET (241, A%) :PRINT#1, “PP" 


NEXT 
GOSUB  1210 
COLOR  10 

FOR  A%=30  TO  220  STEP 
FOR  B%=20  TO  181  STEP 
PLAY " T255U1 5L64N=P  í " 
PSET (A%, B%> 


41 

41 


20  LINE  ( A%,’  B%>  -  ( AY.+  10,  B%-20>  :  LINE-  ( A%+20,B%)  :  LINE-  <  A%,  B%)  :  LINE ( A%+20,  B%)  -  (A%+26 
,B\-10)  :LII«!E-  (A%+10,  B%-20)  :PAINT(A%+9,B%-2) 

P  =  P4  1  "  Mr aT  P  =  0 

240  SPRI  TE¿  ( 0)  =CHR$(¿.H12)  +CHR$  ( kH3D)  +CHR$(&H23)  +CHR$ ( &H23)  +CHR$(&H18)  +CHR$(&HAB) 

250RSPRITE^^Í ?=CHR$t¿H12>  +CHR$(&H3D)  +  CHR$  ( &H23)  +CHR$(&H23)  +CHR$(&H18)  +CHR$(&H24) 
+  CHR$  (  kH24  )  +  CHR$  (  C<H  1 8  ) 

270  SPR I  TE¡I1 )  =CHr!  ( fcHl 8? +CHrI  <  Eh 1 8  >  +CHR$  ( LH3C >  +CHR$ ( fcH3C )  +CHR*  ( fccH3C )  +CHRS  ( LH 1 8 ) 

280RSPRITF${3)H=CHR$fLH18)  +CHR*(LH18>  +CHR$(LHFF)  +CHR*<kH3C>  +CHR*<kH3C>  +CHR*(Í<H18) 
+CHR$  ( 8¿H24 )  +  CHR$  ( &H24 )  __  -  .puNT0S:  TIEMPO:- 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


r  t>fc  I  \  ¿.v  •  1  uü  /  ■  ! 

PUT  SPR I  TE  0,  (X,Y),1,0 
1  =  1 :  FOR  A "4=30  TO  181  STEP  41 
PUT  SPR I TE  I,  <Q,A‘4)  ,  15,2:  1  =  1  +  1 
NEXT  A% 

GOSUB  1200 
GOSUB  480 
PUT  SPRITE 


0, (X, Y) ,1,1 


rui  onvxici  jl»  ,  i  /\  •  i/.xjx 

1=1 : FOR  A%=30  TO  181  STEP  41 
PUT  SPRITE  I , (Q,A%) , 15,3: 1=1+1 
NEXT  A% 

1=1+1 : Q=0+G 
IF  POINT (X+4,Y+4)=10  OR  P0INT(X+4, 
IF  POINT (X+4, Y+4) =7  OR  POINT (X+5, 


1 : LINE (X-2,Y-4)-(X+ll , Y  +  6) 


,  Y+4)  =14THEN  BEEP:  GOTO  580 

r-u.jLr.1  ,«-^,^)=7  OR  POINT  (X+5,Y+3)=7  THEN  PLAY ■  T255L64C 
/  6  BF * SC=SC  + 1 I GOSUB  1300 

430  IF  POINT ( X+4 , Y+4 ) =2  tAeÑ  G^ABsl G > : G=G+2: SC=SC+ 1 : PLAY" T255L6404A05D04A05D04A 
05D04AGFAAGGGFD”  :  GOSUB  1210: TIME=0 
440  IF  INT (TIME/50) =51  THEN  GOTO  580 
450  IF  Q >200  ORQ< 30  THEN  G=-6 
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PROGRAMAS 


460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 


GOSUB  480 
GOTG  300 
D^STICK (0) 
IF  D=1  THEN 
D=2 
D=3 
D=4 
D=5 
D=6 
D=7 
D=8 


IF 

IF 

IF 

IF 

IF 

IF 

IF 


Y=Y-5 

Y=Y-5:X=X+5 
X=X  +  5 

X=X+5: Y=Y+5 
Y=Y  +  5 

X=X-5: Y=Y+5 
X=X-5 

X=X-5: Y=Y-5 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
__  _  _  THEN 

RETURN 

LINE (60, 80) - (200. 90) . 1 ,  BF 
PSET (61 ,81) ,l: COLOR  15:PRINTtfl, 

r-nn  rn  érrtfXmK  ICVT 


TE  COGIO  LA  POLI' 


,14 


i  bt  I  LULUK 

FOR  A=0  TO  500: NEXT 
PLAY“T255V3L640ÓED" 

IF  INKEY*=“  "  THEN  RUN 
GOTO  610 

COLOR  7.1.1: SCREEN2  ,  _ 

LINE (60, 110) -(195, 115) ,4, BF 
LINE (50, 120) - ( 205 , 124) ,4,BF 
6/0  L I NE ( 35 , 130) -(220,140) ,4,BF 
680  LINE(40,50)-(125,0) ,14 
690  LINE- <215¿50) . 14 

7ll  LInI  (70^0?- (125,  10)  ,  14:  LINE-  ( 185, 40)  ,14:  LINE-  (70,  40) 

7ÍI  LINeT70,40?-’(125,  10)  ,  4:  LINE-  ( 185,  40)  ,  4:  LINE- ( 70,  40)  ,4 

750  LINE  (Isfi^-bo,  55),  14:  LINE- <85,  55),  14:  LINE- (90,  50)  ,14 
760  PAINT (75, 52) , 14 

VS  LINE (Tóé^SÉn  JÍ4?LINE- (185,55) , 14: LINE- ( 190,50, ( 14 

790  PAINT( 175,53) , 14  _ 

800  LINE (170, 57) -(185, 125) .14, BF 
810  LIME(65, 130) -(90, 140) , 14.BF 
820  LINE (165, 130) - ( 190, 140) , l4,BF 

Í40  L í  n!  (  i  85 ;  í  1 5 >  -  ( 1 90 ’,  1 30 )  ’,  i 4 :  PA I NT  ( 1 75 ,  1 27 )  ,  1 4 
850  LINE( 170, 125) - ( 185, 125) ,5 
860  OPEN-GRP: "ASttl 

PSET (105,30) , 4: PRINTttl . *MUSEUM“ 

lÍnIÍÜ;  125) -(90*  130)  !  14 :  PAINT  ( 80,  127)  ,  14 
LINE ( 10, 125) - ( 185, 125) , 1 
LINE (105, 55) -(150, 110) ,4,B 
LINE (110, 60) - < 145. 105) , 7 , BF 
LINE (90, 65) - (95, 80) , 10, BF 
LINE ( 160, 65) - ( 165, 80) , 10,  BF 


870 

830 

890 

900 

910 

920 

930 

940 

950 

960 

970 

117) 


130. 


980 } t I RCLE ( 1 26 , 165) . 3, 6: CIRCLE ( 137, 165) ,3,6 
990  LINE ( 126, 116) - ( 134, 119) .2, BF 

í 010^lÍnI- ( lÉé'íllM ,'Í¡?Í.ÍnE-(  131 , 152> , 12: LINE- (134, 167) ,  12: LINE- < 139, 167) , 12:LIN 
^020°L I NE- ( i 26, 145) . 12: PAINT ( 128, 146) , 12 

lili  DRAW"  BM128 1 30C2L2G 1 L2G1L 1 D9F5R8E5U9L2U1 L2H 1 L6 "  :  PAINT  (130, 135)  ,  2 
1050  DRAW " BM125 , 140C 1 F4C2R2C 1E4  * 

1070  PLAY“T¡Íév^5L103DDÍlED#DfcttÉDSDDsÉDttDÍ)D“ ,  ‘Í)15L107PAFAFAL64FFFFFFFFFF 

'í¿llil?S^?§?;™°??P“S?S;,-F0EO  EN  EL  MUSEO  POR  A.F.H.- 
1090  FÓR  A=0  TO1000: NEXT: GOSUB  1180 


■T25502 


sin  dei ar  huel 1 * 


_ _  rUK  M  —  XJ  I  •  INUA  f  ■  J-f  ** 

Il00  PSET ( 15, 170) , 1 : PRINTH1  , "Debes  robar  los  diamantes 

5.  “ 

1110  GOSUB  1190 

1120  PSET (15, 170) , 1 : PR INTUI , "No  toques  las  pir  mides  ni 
a  laapolinJ." 

1130  GOSUB  1190 
1140  PSET ( 30, 1 50) , 0 : PRINT# 1 , 

1150  PSET (30,170) ,1: PRINT # 1 , 
aundos . “ 

í 160  IF  INKEY*="  "  THEN  RETURN 
GOTO  1160 

LIME ( 0, 170) -(255. 191 ) ,1 ,BF: RETURN 

L?5¡,^,Igl??f^Ut??Í,fBÍ!PIÍ5!^LS0»,i:COLOR  SPRINT  «L.  INTUI*/*. 


• (  ESPACIO  ) " 

“Utiliza  el  cursor  y  sal 


del 


las  paredes  y  evit 


museo  antes  de  50  se 


1170 
1180 
1190 
1200 
: RETURN 
1210  FOR 
1220 
1230 
1240 
1250 
1260 
1 300 


A%=30  TO  220  STEP  51 
FOR  B%=30  TO  181  STEP  41 
PSET  (  A%,  B%)  ,6:  COLOR  7:PRINTtfl,  °F“ 

NEXTB% 

MFXTA* 

LINE^70,  180)  -  (  100,  191 )  ,  1  ,  BF!  PSET  (65,  180)  ,  01  PRINTtli  ,  SC:  RETURN 


Programas 
Sony  MSX,para  lo  que 
guste  ordenar. 


[asientos  CONTABLES  ( 
PLAN  CONTABLE 

listado  cuentas  de  mayor 

BALANCE  DE  SUMAS  V  SALDOS 
CUENTA  DE  RESULTADOS 
CIERRE  PERIODICO 


HIT  3IT 


E  DUCATI  VOS 


APLICACIONES 


JUEGOS 


GESTION 


MSX 


PROGRAMAS 


PROGRAMAS  SONY  MSX 


Educativos _ 

•  Monkey  Academy 

•  Alfamat 
•Viaje  Espacial 

•  Multipuzzle 

•  Noria  de  Números 

•  Corro  de  Formas 

•  Coconuts 

•  Yo  Calculo 

•  Selva  de  Letras 

•  El  Cubo 
Informático 

•  Electro-graf 

•  El  Rancho 

•  Teclas  Divertidas 

•  Boing  Boning 

•  Compulandia 

•  Mil  Caras 

•  Logo 

•  Países  Mundo-1 

•  Países  Mundo-2 

•  Tutor 

•  Computador 
Adivino 

•  Aprend.  Inglés-l 

•  Aprend.  lnglés-2 

•  Cosmos 

•  Curso  de  Básic 

•  Juego  de 
Números 

Juegos _ 

•  Antártic  Adventure 

•  Athletic  Land 

•  Sparkie 

•  Juno  First 

•  Car  Jamboree 

•  Battle  Cross 

•  CrazyTrain 

•  Mouser 

•  Computer  Billiards 

•  Alí  Babá 

•  Track&Field-l 

•  Track&Field-ll 

•  Dorodon 

•  Chess  (Ajedrez) 

•  Senjo 

•  E.l. 

•  Lode  Runner 

•  SuperTennis 


•  Backgammon 

•  SuperGolf 

•  Hustler 

•  Binary  Land 

•  Driller  Tanks 

•  Stop  the  Express 

•  Ninja 

•  Les  Flics 

•  La  Pulga 

•  The  Snowman 

•  Cubit 

•  Pack  16K 

•  Fútbol 

•  Kung  Fu 

•  Batalla  Tanques 

•  Mr.  Wong 

•  Xixolog 
• Buggy 

•  Sweet  Acom 

•  Peetan 

•  Jump  Coaster 

•  Buggy  84 

•  3D  Water  Driver 

•  Pinky  Chase 
•WeddingBells 

•  Fightting  Rider 

Aplicación 

•  Memoria  Ram  4  K 

•  Creative 
Greetings 

•  CharacterCollect 

•  Quinielas  y 
Reducciones 

•  Pascal 

•  Ensamblador 

•  Generador  Juegos 

Gestión _ 

•  Hoja  de  Cálculo 

•  Homewriter 

•  Control  Stocks 

•  Contabilidad 
Personal 

•  Ficheros 

•  Procesador 
de  Textos 

•  Control  Stocks 

•  Vencimientos 

•  Contabilidad 
1.500 


4  REM  MONSER, S. A. 

5  REM  Y 

6  REM  J.L. PEREZ  MADRIGAL 

7  REM 

8  REM  ARTISTA 

9  REM 

10  CLS: GOSUB  720 
OPEN’GRP: "  AS#1 

CLS 

INPUT" Y=" ; Y 

input-x=";x 

INPUT"COLOR=" ; K 
70  SCREEN  2: COLOR  1.15,6 
80  LINE(0,0) - (256,11) ,6, BF 
90  LINEÍ0, 182)-(256, 192) ,6,BF 
100  D=STICK(0)  :  A*=INKEYí*¡ 

110  IF  A*="5"  THEN  Y=Y-1 
120  IF  A*="6"  THEN  X=X+1 
130  IF  A$="7"  THEN 
140  IF  A*="8"  THEN 


20 

30 

40 

50 

60 


150  PSET(Y.X) , K 

A*=H5"  THEN 


X=X-1 
Y=Y  +  1 


160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


PRESET ( Y+l , X) , 15 
A*="6"  THEN  PRESET ( Y , X- 1 ) , 15 
A*="7"  THEN  PRESET ( Y, X+ 1 ) , 15 
A*="8"  THEN  PRESET (Y-1,X) , 15 
D=i  THEN  X=X- 1 
X=X+1 
Y=Y  +  1 
Y=Y- 1 

Y=Y+l:X=X-i 
Y=Y+1:X=X+1 
Y=Y-1:X=X+1 

y=y-i:x=x-i 


D=5 
D=3 
D=7 
D=2 
D=4 
D=6 
D=8 
PSET (Y, 

IF  A*=*i" 
A*="Z" 
A*="X" 
A*="C" 
A$="V 
A$=“B" 
A*="N 
A*="M 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
X)  ,  K 


IF 

IF 

IF 

IF 

IF 

IF 

IF 


GOTO  100 


THEN  PAINT ( Y-l , X) ,K 
THEN  GOSUB  380 
THEN  GOSUB  420 
THEN  GOSUB  460 
THEN  GOSUB  500 
THEN  GOSUB  540 
THEN  GOSUB  660 
THEN  GOSUB  690 


380  LINE ( 0,182) - ( 256, 192) ,6, BF 
390  GOSUB  580 
400  CIRCLE (Y,X),F,K,,,1.4 
410  RETURN 

420  L I NE ( 0 , 1 82 ) - ( 256 , 1 92 ) , 6 , BF 
430  GOSUB  580 

440  CIRCLE(Y,X) ,F,K, ,3. 14, 1.4 
450  RETURN 

460  LINE(0, 182) -(256, 192) ,6,BF 
470  GOSUB  580 

480  CIRCLE (Y,X) ,F,K,3. 14, , 1.4 
490  RETURN 

500  L I NE ( 0 , 1 82 ) - ( 256 , 1 92 ) , 6 , BF 
510  GOSUB  580 

520  CIRCLE ( Y, X) ,F,K,4.7, 1.6, i . 
530  RETURN 

540  LINE (0,182) - ( 256, 192) ,6, BF 
550  GOSUB  580 

560  CIRCLE (Y,X) ,F,K, 1.6, 4. 7, 1. 
570  RETURN 

580  PRESET ( 10, 184) , 6: PRINTttl , 


Es  un  Pr después  de 

dibujo  en  ftruCCiones  se  dan 

disminuye  e\  deseado  se 


RADIO=" 


joü  recocí  \  xxj  9 

590  A=STICK (0) 

600  IF  A=1  THEN  F=F-1 
610  IF  A=5  THEN  F=F+1 
620  IF  INKEY*="  -  THEN  RETURN 
630  PRESET (60,184) ,6:PRINT  #i,F 
640  LINE ( 60,184) - ( 100, 192) , 6, BF 
650  GOTO  590 

660  LINE(0, 182) -(256, 192) ,6,BF:G0SUB  580 
670  LINE(Y,X) - (Y+F,X+F) ,K,BF 
680  RETURN 

690  LINE (0,182) -(256, 192) ,6, BF: GOSUB  580 
700  LINE.(  Y,  X)  -  ( Y+F,  X+F)  ,  K,  B 
710  RETURN 
720  PRI NT "DIBUJO 
730  PRI NT "CURSOR  PARA  PINTAR" 

740  PRINT"5=LEFTí  6=D0WN: 7=UP: 8=RIGTH" 

750  PRI NT " l=COLOREAR " 

760  PRINT"Z=CIRCULO:X=SEMICIRCULO  ABAJO" 

770  PR I NT "C=SEMI CIRCULO  ARRIBA: V=SEMICIRC . IZQ  " 
780  PRINT" B=SEMI CIRCULO  DERECHA" 

790  PRINT " N=CUADRADO  RELLENO" 

800  PRINT"M=MARCO  NEGRO" 

810  PRINT"B. E=RETURN" 

820  PRINT"  M-hhhhhhhhhhhKhhhhhhhKhhhhKKhKhKKhhhK" 
830  PRINT: PRINT: PRINT-PULSA  UNA  TECLA" 

840  IF  INKEY*=""  THEN  840 
850  CLS: RETURN 


XXXXXX" 
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PROGRAMAS 


En  este  juego  de  tenis  que  os  ofrecemos  existen  dos  modalidades:  Un  jugador 
contra  la  máquina  o  bien  dos  jugadores,  con  varios  niveles  de  dificultad,  para 
poder  ir  mejorando  vuestra  técnica. 

En  la  primera  modalidad  te  enfrentas  a  un  duro  adversario  al  que  te  será  más 
difícil  vencer  según  aumentes  el  nivel  del  juego,  por  lo  cual  te  aconsejamos  que 


5  REM  **+*  PROGRAMA:  TENIS  **-** 

10  REM  ****  LUIS  SANGUINO  -  COPYRIGHT  MONSER  *-*** 

20  REM  ***  DIBUJO  DE  LA  PALABRA  TENIS  *** 

30  COLOR  1,14,8 

40  CLS 

50  SCREEN  2 

60  P SET (38,20) , 1 

70  DRAW"R30D8L11D22L8U22L11U8" 

80  PAINT ( 40,22) , 1 
90  PSET (79,20) ,4 

i 00  DRAW " R25D6L 1 7D6R 1 7D6L 1 7D6R1 7D6L25U30 " 

110  PAINT (81 , 22) ,4 

130  DRAW " R6D¿F?D i F 1 D 1 F 1 D0F 1 D 1 F 1 D0F 1D1F1D1F1 D0F 1D1F1D1F1 D0F 1 U 1 9R6D30L6U0H 1 U 1 H 1 U0H 
1 U 1 H 1 U0H 1 U 1 H 1 U0H 1 U 1 H 1 U0H 1U1H1U1H1U1H1D1 9L6U30 " 

140  PAINT( 117,22) ,13 
150  PSET ( 150, 20) ,2 
160  DRAW-RÓD30L6U30" 

170  PAINT ( 152,22) ,2 
180  PSET (167, 20) ,6 

1 90  DRAW  *  R25D7L 1 9D5R 1 9D 1 8L25U7R 1 9U5L 1 9U 1 8 " 

200  PAINT ( 169,22 ) ,6 

210  REM  ***  DIBUJO  DEL  TENISTA  *** 

220  C IRCLE ( 98,35 ) , 1 1 , 1 
230  PSET (90, 80) , 1 
240  DRAW-R25- 
250  PAINT ( 100, 77) , 1 
260  CIRCLE (97,35) ,1.1 
270  CIRCLE ( 105, 85) ,1,1 
280  PSET ( 101,86) , 1 
290  DRAWF3L2" 

300  CIRCLE(100, 90) ,3, 1,3. 14,6.28 
310  PSET ( 95,96) , i 
320  DRAWD2G1D2G1D1" 

330  PSET (101, 96) , 1 
340  DRAWD2GÍD2G1D1" 

360  DRAW-R2É1R2EÍR2E1R2E1R3D8L2D1L2D1L4D0L1D1D3G1D3G1D3G1D3G1D3G1D3G1L10U22G7U4H 
1U4H1E3R4D1F3D2F3E2U3E1U3" 

370  PAINT ( 102, 106) ,6 
380  PSET  (116  102)*  i 

390  DRAW"EiR¿ElR2ÉiR2ElR2ÉiR2ElR2U3R6D8L4D2L2U2L2GlL2GlL2GlL2GlL2GlL2GiDlU8" 

400  PSET (79, 113) , 1 

410  DRAW" G2D1G3D 1 G2D1G3D1G2D1G1U2L6D8R4D2R2U2E2U1E3U1E2U1E2U1E3U1E1 " 

420  PSET (99, 136) ,4 

4 30  DRAW " L 1 0G 1 2F2R2F2R2F2R2E6F2R2F2R2E2U2E2U2E2U2H1L 1H1L1H1L1 H2L 1 " 

440  PAINT (95, 140) ,4 
450  PSET ( 106, 151) , 1 

460  DRAW "F16D1F1D1F1D1F1D1F1D1F1D1F1D1F1D1F1D1F1 D4R4U2F 1 R 1 F 1 R2F0R2U 1 H7L5R5U i H1 U2 
H1U1H1U2H1U1H1U1H1U2H1U1H1U1H15 " 

470  PAINT( 135, 183) , 1 
480  PSET (141 ,94 ) , 1 
490  DRAW-E14F2G16" 

500  PAINT (143, 95) , 1 
510  CIRCLEÍ  167,72) , 12, 1 
520  C IRCLE ( 1 90,82 ) ,4 , 3 
530  PAINT (190, 82) ,3 
540  PSET  (77. 152) ,1 

550  DRAW" G1 1L21 D5K1 DI 1R1E1U1E1U1E1U1E1U1E1U6D6R4F1R4F 1R5E18" 

560  PAINT(47, 169) ,1 

570  FOR  J=1  TO  2000: NEXT  J 

580  REM  ***  INTRODUCCION  DE  LOS  DATOS  PRELIMINARES  *** 

590  SCREEN  1 
600  KEY  OFF 

610  CLS: BEEP: LOCATE  1,10:  LIME  INPUT  "INDICA  102  JUGADORES  ■ J W* 

620  IF  W*— " 2 "  THEN  650 

630  IF  W*="l"  THEN  1250 

640  W=VAL(W*):  IF  W<1  OR  W>2  THEN  610 

650  CLS: BEEP: LOCATE  1,10:  LINE  INPUT  "NOMBRE  DEL  PRIMER  JUGADOR:  " 5 Q* 

660  CLS: BEEP: LOCATE  1,10: LINE  INPUT  "NOMBRE  DEL  SEGUNDO  JUGADOR:  *  i N* 

670  CLS:  BEEP:  LOCATE  0,  7:  PRINT"  ****ELI  JA  NIVEL  DE  JUEGO  ****": LOCATE  0,9  :  LINE  IN 
PUT-DE  4  A  8:  " ; R* 

680  R=VAL(R*> 

690  IF  R< 4  OR  R >8  THEN  670 

700  CLS: BEEP: LOCATE  0,10:  LINE  INPUT  "A  CUANTOS  PUNTOS  SERA  EL  FIN  DEL  MACH  ?";T 
*:T=VAL(T*) 

710  IF  T<=0  OR  T>25  THEN  700 

720  REM  ***  INSTRUCCIONES  2  JUGADORES  *** 

730  CLS: LOCATE  10,6:PRINT9* 

740  LOCATE  3, 10: PRINT " JUEGAS  A  LA  IZQUIERDA" 

750  LOCATE  3, 12: PRINT " TU  RAQUETA  ES  LA  NEGRA" 

760  LOCATE  3, 14: PRINT"PULSA  S  PARA  AVANZAR" 

770  LOCATE  9,16:PRINT"A  PARA  RETROCEDER" 

780  LOCATE  9,18:PRINT"W  PARA  SUBIR" 

790  LOCATE  9,20:PRINT"Z  PARA  BAJAR" 

800  FOR  G=1  TO  4500: NEXT  G 

810  FOR  K= 1  TO  25: PRINT: BEEP: NEXT  K 

820  CLS: LOCATE  10, 6: PRINT  N* 

830  LOCATE  3,10:  rRINTM JUEGAS  A  LA  DERECHA  " 

840  LOCATE  3 , 1 2 : PR I NT " TU  RAQUETA  ES  LA  AZUL" 

850  LOCATE  3, 14: PRINT"PULSA  O  PARA  AVANZAR" 

860  LOCATE  9,16:PRINT"P  PARA  RETROCEDER" 

870  LOCATE  9,13:PRINT"0  PARA  SUBIR" 

880  LOCATE  9,20:PRINT“L  PARA  BAJAR" 

8^0  FOR  G=1  TO  4500: NEXT  G 

900  FOR  K= 1  TO  25  : PR INT : BEEP : NEXT  K 

910  REM  ***  COMIENZO  DEL  JUEGO: POSICIONES  INICIALES  DE  LASRAQUETAS  Y  LA  PELOTA  * 

920  COLOR  1,14,2 
930  SCREEN  3 
940  X=126:Y=0 
950  X 1 =4 : Y 1 =R 
960  J=12:  K=94 
970  L=240: M=94 

980  IF  N$< >"MSX-BORG"THEN  GOSUB  1430  ELSE  GOSUB  1650 
990  PSET  ( J, K-4 ) , 1 : PSET ( J, K ) , 1 : PSET ( J , K+4 ) , 1 
1000  PSET  (L, M-4) , 4: PSET (L, M) ,4: PSET (L, M+4) , 4 
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PROGRAMAS 


utilices  la  siguiente  estrategia:  MSX-BOROr  é§  uñ  Iffipusivo  jugador  que  sube 
rápidamente  a  la  red,  aprovéchate  de  esta  circunstancia  ya  que  desde  el  fondo  de 
la  pista  es  prácticamente  invencible.  Cuando  esté  cerca  de  la  red  trata  de  rozarle 
la  pqlota  lo  más  posible  procurando  que  en  ningún  momento  pase  por  delante 
de  éi,  aé  lo  cdflffáñd  §iéffipf§  ia  alcanzará, 


t.  -  7 

r  l 

i-  A  V 


u  b 


*  -j 

>  4  7 


b  ^  7 

-7  F  U 

A  V  -i  > 

<-  \  2  « 

<-  r  i  <  >  <-  ' 

v  v 

b"  "  >  r  * 


A  ^ 


L 


L 


4  r-  b  o  >  b 


\ 

> 


<  >  V 


A 

V 


<  V 
v  v"  4  >  r 

r  4  n  ^  r  /i 


b 


l  A  v 
<  ^  > 


b 
7  u 


A 

V 


> 


<  > 

‘=1 


‘  b  7  <  4 

A  u  A  <  >  v  u  4 

>  i- 

<r  .  / 

b  ^  h 

L  ^  -  h  .... 

A  V 


< 


1 


’>L>1  U 

<f  b  ^  b 

W  7  V  * 

r  4.  7  '  A  4 

L  /\  V  7  <  7  <  <  7  V- 

L  4  ^UN/V  ^^7 

A  4-  <  >  ^  ^ 

v>  7V>  7  b  .  vj 


4 

< 


A  \/ 


^  V  v 
7 


r 


V 

,7v  4 

b  7  <  b 

A  <  s  V  A 


A  v  V 
-7  v  y 


n 


si 


A 

A  /\  V  A 

v  ^  7  v 

“7  < 


<  ^ 
4  ^  ^ 

A  <  >  V 

7  v 


1010  REM  *+4  DIBUJO  LINEA  DIVISORIA  #4* 

1020  LINE<126,0) -(126, 192) ,6  m  .  ¿U(á, 

1020  REM  444  MOVIMIENTO  Y  REBOTES  DE  LA  PELOTA  444 

1050  yÍ^Í^ÍL.  , 

1060  PSET  ( XI , Y I )  t 
1070  PRESET  ( X ,  Y ) 

1080  X=XI : Y= Y I 

10°0  IF  Y1 >188  THEN  Y1=-R:BEEP 
1100  IF  YI<  2  THEN  Y1  =R:  BEEP 

1110  IF  P0INT(XI-X1, YI)=1  THEN  X 1 =-4 : BEEP : GOf 0  1040 
1120  IF  POINT (XI,YI+Y1)=1  THEN  Xl=-4: BEEP: GOTO  1040 
1190  IF  POINT (XI , YI+Y1 ) =4  THEN  X 1 =4 : BEEP: GOTO  1040 
1140  I.|  Pg|WT<><l1><l.  YI)*4  THEN  Xl=4:  BEEP:  GOTO  1040 

fifi  f §s  fíiÉfi  k  1  Ím  :  Y 1  -R :  x- 1 26 :  r=0 :  pl  a  y  •  05ABD04DD  • : screEN  Isgoto  ii?0 
1170  lf  Xí<8  +HEM  ÉLAY * 0SASC04DD * ¡ SCREEN  1:GOTO1200 

1111  “A+lfLOCÁti  *###•##.  PUNTO  .PARA  LA 


4444“ : LOCATE  3,11:RRIN 
XT  V:IF  A=T  THEN  GOTO 
1200 
A  AZU 
OR  V; 

1210 _ 

1220  t2CATE  0¿16:  PRINT 


;n** 

GOTO  960 


HAS  GANADO  N$" , RAQUETA  AZUL" 


RAQUETA  NEGRA  44 
azul=“;b:  for  v=i  toi400:ne 

RAQUET 

PRINT  Q*“  NEGRA=" ; A: F 
GOTO  1840 


DATOS  PRELIM 

mm  m 


PRELIMINARp^PARA  i NoMBRE°DEÍ1  "  JÜGADOR:  "  *  Q*:  ÍÍ?JtSSS”§0^Ptnp 
PR I NT  *  4444EL I J  A  NIVEL  DE  JUEGO  4444" : LOCATE  0,9  ILINE 


iiii  m 

1260  CLS: 1 
NPUT “ DE  4  A 
1270  R=VAL(R*>  .  -  -  a 

lili  CLS?BEEP?LOCATEHÍ?10?  LINE  ÍÑPÜf  "A  CUANTOS  PUNTOS  SERA  EL  FIN  DEL  MACH  ?•) 
t*:t=val(T$) 

1300  IF  T <  =0  OR  T>25  THEN  1290 

1310  REM  444  INSTRUCCIONES  1  JUGADOR  444 

1320  CLS:  LOCATE  10,6:PRINTQ* 

-  -  310: PRINT" JUEGAS  A  LA  IZQUIERDA* 

3,12: PRINT"TU  RAQUETA  ES  LA  NEGRA" 

, 14:print“pulsa  s  para  avanzar- 

lié! PRINT “A  PARA  RETROCEDER" 

Í1¡PR|NT“W  PARA  SUBIR" 

9i.20:  Pr1nT*|  PARA  BAJAR" 

_  w  *  TO  4500 : feíÉxf  G 

1400  FOR  K—  1  TO  25:PRÍNT:|EEÍ,,iNEXT 
1410  REM  4444  MOVIMIENTO  RAQUETA  Z  JUGADORES 
1420  GOTO  920 
1430  AS=INKEY* 

1440  IF  Xl=-4  GOTO  1500 
1450  IF  A$="A"  OR  A*="a" 

1460  IF  A^="S"  OR  A*="s" 

1470  IF  A**"W"  OR  A*="w“ 

1480  IF  A0*“Z“  OR  A*=“z" 

1490  IF  Xl«4  GOTO  1550 
1500  IF  A<^"P"  OR  A*=»" p" 


130  LOCATE 
140  LOCATr 
50  -f 
t§O0 

1370  _ c_ 

1380  LOCATI 
1390  FOR  G=1 


THEN  J=J-4: PRESET ( J+4, K) i  PRESET ( J+4, K-4) : PRESET ( J+4, K+4 
THEN  J  =  J+4: PRESET ( J-4, K-4) : PRESÉT  < J-4, K) : PRESET ( J-4, K+4 


THEN 

THEN 


K=K-4: PRESET ( J . K+8) 
K=K-*-4:  PRESET  ( J  ,  K-8) 


THEN  L*L 4-4:  PRESET  (L-4,M-4)  :  PRESET  (L-4,M)  :  PRESET  <L-4,M+4 

510  IF  Aé=*0"  OR  A$=“o"  THEN  L*L-4: PRESET (L+4, M-4) : PRESET (L4-4, M) : PRESET (L+4, M+4 

1520  IF  A**"L"  OR  A*-"l"  THEN  M-M+4: PRESET (L, M-8) 

1530  ÍF  A**“0"  THEN  M*M-4: PRESET (L.M+8) 

1540  REM  4444  LIMITES  DE  LAS  RAQUETAS  444* 

1550  IF  K< *6  THEN  K»6 
1560  I F  X>*186  THEN  K*186 
1570  IF  J < 0  THEN  J=*0 
1580  IF  J  >122  THEN  J=122 
1590  IF  M<=6  THEN  M*6 
1600  IF  M>=1 86  THEN  M=186 
1610  ÍF  L >253  THEN  L*255 
1620  IF  L< i 30  THEN  L*130 

1640  lÍMUft4444  MOVIMIENTO  DE  LA  RAQUETA  DE  1  JUGADOR  444*4 

1660  ÍF*aÍ="A"*0R  A*="a"  THEN  J*J-4: PRESET ( J+4, K) : PRESET ( J+4, K-4) : PRESET ( J*4, K+4 
1670  IF  A4¡=  “ S “  OR  A**“s"  THEN  J=*J+4:  PRESET  ( J-4,  K-4)  :  PRESET  ( J-4,  K)  :  PRESET  (J-4,  K+4 


OR  A«*“H" 
OR  A**J  ‘ 


»K-4:PRESET(J,K+8) 
*K+4: PRESET ( J , K-8) 


THEN 

_  THEN _  ... 

LIMITES  DE  LA  RAQUETA  4444 
T ...  _  THEN  K=6 
1720  IF  K>=186  THEN  K=186 
1730  IF  J<0  THEN  J=0 
1740  IF  J > i 22  THEN  J=122 

1760  REM^444*TM0V I M?ENTO  AUTOMATICO  DE  LA  RAQUETA  DE  LA  MAQUINA  EN  LA  MODALIDAD 
DE  1  JUGADOR  4444 
1770  IF  Yi:  “  ““ 

1790  IF  xÍ<T00P,AND/L>134CAND""j<T00r'THÉÑ  'l*L-4:  PRÉSETTL+47M-4)' i  PRESÉT  (L+4,  M)  :  PRES 
f 800+II^MXI >L-4  AND  L<248  AND  YI<M  AND  YI>M-60  THEN  L=L+4: PRESET (L-4, M-4) : PRESET ( 
l-810MIFf>XI  >L-4LAN¿ML^248  AND  YI>M  AND  YI<M+60  THEN  L=L-*-4:  PRESET  (L-4,  M-4)  :  PRESET  ( 

l[82áMIFPXI  >1 10LANÍ)ML<23á  AND  J>100  THEN  L=L+4:  PRESET  (L-4,  M-4)  :  PRESET  (L-4,  M)  :  PRES 
ET ( L-4 , M+4 ) 

1 330  RÉTURN 

1840  LOCATE  0,20: PR I NT " QU I ERES  JUGAR  OTRA  VEZ  S/N  " 

1850  U*=INKEY* 

1860  IF  U$=’N"  OR  U*="n"THEN  GOTO  1900 
1870  IF  U$="S"  OR  U*="s"THEN  A=0: 3=0: GOTO  610 
1890  GOTO  1850 
1900  END 
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JUEGO 
DEL  MES 


Alguna  vez  habrá  pasado 
por  tus  manos  un  cubo  de 
Rubik.  Es  probable  incluso 
que  lo  sepas  resolver.  Segu¬ 
ramente  has  aprendido  a 
costa  de  interminables  tar¬ 
des  mirando  fijamente  el 
cubo,  intentando  compren¬ 
der  por  qué  el  último  movi¬ 
miento  lo  ha  desordenado 
por  completo  en  lugar  de  or¬ 
denarlo.  Está  claro  que  nos 
hemos  equivocado  y  teñe- 
mos  que  empezar  otra  vez. 

Con  el  programa  CUBIK 


podrás  practicar  cuanto 
quieras.  Es  un  cubo  incan¬ 
sable  que  acepta  cualquier 
movimiento,  siempre  que 
sea  válido,  claro  está. 

El  programa  se  carga  con 

[Load  “CAS: CUBIK”  ,~R~] 

Después  de  la  pantalla  de 
presentación  hay  otra  con 
instrucciones  y  después  de 
estas  podemos  empezar  a 
jugar.  El  cubo  inicial  está 
ordenado  y  tiene  los  colores 
distribuidos  como  sigue: 


AZUL  -  CARA  FRONTAL 
ROJO  -  CARA  SUPERIOR 
AMARILLO  -  CARA  DERECHA 
VERDE  -  CARA  POSTERIOR 
NARANJA  -  CARA  INFERIOR 
BLANCO  -  CARA  IZQUIERDA 


Las  caras  y  capas  intermedias  son  designadas  por  las  siguien¬ 

tes  letras. 

MOVIMIENTO  QUE  PRODUCE 
R  — -  Cara  derecha  — 


nSí>! 


L  — -  Cara  izquierda 
U  — -  Cara  superior 
D  — -  Cara  inferior 
F  — *  Cara  frontal  — 

B  — -  Cara  posterior  — 

A  Capa  intermedia  vertical  de  la  cara  frontal 
M  — *  Capa  intermedia  horizontal 
C  - 


ÍSYS 


Capa  intermedia  vertical  de  la  cara  derecha 
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— A, — M,A,M  —  puntos 
A,  A,  M,  A,  A,  — M  —  4 
Puntos 

A,  A,  D,  D,  A,  A,  — D, 

A,  A,  — D,  — U,  C,  C, 
— U  —  TES 

L,  R,  U,  D,  L,  R,  U,  D 
L,  R,  U,  D  —  ZIG-ZAG. 
D,  D,  R,  R, — L, — L, — U, 
— U,  R,  R,  — U,  — U,  D, 
D, — L, — L  —  Rayas 

B,  — L,  D,  D,  L,  D, — F,  D, 
D,F,—  D,—  B,— F,  R,— 
U,— U,— R,— U,B,— U, 
— U, — B,U,F  —  El  cubo 
dentro  del  cubo 


¿Sorprendido? ,  Bueno , 
es  posible  que  ya  los  cono¬ 
cieses  pero  hay  otros  43  tri- 
llones  de  posibilidades  que 
explorar.  Solo  tienes  que 
sentarte  y  poner  en  marcha 
el  programa. 

Esperamos  vuestros  des¬ 
cubrimientos. 


A  partir  de  esta  posición 
se  puede  empezar  a  mover 
cualquier  cara  o  las  capas  in¬ 
termedias  en  un  sentido  u 
otro.  Las  letras  designan  las 
caras  y  para  efectuar  el  mo¬ 
vimiento  de  una  cara  cual¬ 
quiera  basta  con  pulsar  la 
tecla  de  la  letra  correspon¬ 
diente. 

Los  giros  se  efectúan  en  el 
momento  de  pulsar  la  tecla 
y  son  en  sentido  horario,  es 
decir,  en  el  sentido  de  las 
manecillas  del  reloj  con  res¬ 
pecto  al  centro  de  la  cara 
que  queremos  mover. 

Si  queremos  hacer  el  mo¬ 
vimiento  inverso,  en  senti¬ 
do  antihorario,  debemos 
pulsar  el  signo  (— )  antes  de 
la  tecla  de  la  cara  correspon¬ 
diente. 

Además  de  estas  letras  se 
usan  también  la  «X»  que  lle¬ 
va  el  cubo  a  su  posición  ini¬ 


cial  y  el  signo  «— »  para  in¬ 
vertir  los  movimientos. 

Para  conseguir  una  posi¬ 
ción  desordenada  cualquie¬ 
ra  basta  con  pasar  las  manos 
por  el  teclado  un  par  de  ve¬ 
ces  dejando  caer  los  dedos 
aleatoriamente.  Te  sor¬ 
prenderá  el  resultado.  El 
caos  que  aparece  es  el  que 
debes  resolver. 


Pero  si  no  tienes  ya  pro¬ 
blemas  en  la  resolución  del 
cubo  puedes  dedicarte  a  la 
«investigación»  de  modelos 
y  formas  nuevas.  Es  en  esta 
segunda  etapa  donde  la  te¬ 
cla  «X»  que  inicializa  el 
cubo  toma-  su  verdadero  va¬ 
lor,  cuando  nos  equivoca¬ 
mos  y  debemos  recomenzar 
la  secuencia  que  estamos 
haciendo. 

Intenta  estas  secuencias 
de  movimiento: 


Para  cargar  teclear  LOAD  “CAS: 
CUBIK”,  R  y  pulsar  la  tecla  «RE- 
TURN». 
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PROGRAMAS 


O. 


PiífñU  iaSLopezS' 3 

3  REM  para 

4  REM  MDNSER 

5  REM 
10  CLS 

open-grp: "ASI 

PRINT"3  EN  RAYA" 

PRI NT “CUANDO. §EA  TU  $yfM8lTKUgA  EL 
IZQUIERDA  A  DESECHA  Y  DE  ARRIBA  A 
LOCATEiíLlS«FRINT-PULSA  UNA  TECLA” 
C$=IgKfi|*!IP  C*=“"  THEN  70 

DIM  A ( 9 ) 

V=INT<RND(-TIME>*2> 

IF  V=0  THEN  GOTO  130 


20 

30 

40 

50 

60 

70 


NUMERO  DE 
ABAJO) “ 


LA  CASILLA (DEL  1  AL  NUEVE, 


* 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 


GOTO  140 
A ( 5 ) =1 
GOSUB  1090 
PSET ( 25 , 0) 

PSET  ( 25, 0)  . 

PRINT#1 , “ *QUÉ  CASILLA?" 
C**INKEY*!IF  C$=M"  THEN  180 
C*VALtC$) 

IF  09  OR  C<=0  THEN  160 

IF  A ( C ) <  >0  THEN  GOTO  160 

A  (0=2 

GOSUB  1090 

GOSUB  820 

GOSUB  1190 

A ( B ) =1 

GOSUB  1090 

GOSUB  820 

GOTO  160 

9 

REM  CASILLERO  _  ^ 

LINE  (80, 60) -(176,60) 

LINE  (80,100) -<176, lf 
LINE  ( 1 10, 20)  -  ( 1 10,  J  4i 
LINE  (143, 20) “ t 143, 140) 
RETURN 

CIRCLE  <95, 40) ,8 
RETURN 

CIRCLE < 126, 40) ,8 
RETURN 

CIRCLE ( 157, 40) ,8 
RETURN 

CIRCLE (95, 80) ,8 
RETURN 

CIRCLE( 126, 80) ,8 
RETURN 

CIRCLE (157, 80) ,8 
RETURN 

CIRCLE (95, 120) ,8 
RETURN 

CIRCLE (126, 120) ,8 
RETURN 

CIRCLE ( 157, 120) ,8 
RETURN 

LINE  (90,33) - ( 100, 47) 

LINE  (100,33) - (90,47) 
RETURN 

LINE (120, 33) -(133, 47) 

LINE (133, 33) -<120, 47) 
RETURN 

LINE (153, 33) -(163, 47) 

LINE (163, 33) - (153,47) 
RETURN 

LINE (90, 73) -(100, 87) 

LINE (100, 73)- (90,87) 

RETURN 

LINE (120, 73) -(133, 87) 

LINE <133, 73)- (120,87) 
RETURN 

LINE (153, 73) - (163,87) 

LINE ( 163, 73) - (153,87) 
RETURN 

LINE <90. 113) -(100, 126) 

LINE (100, 113) - (90, 126) 


TRES  EN  RAYA 


O 


PROGRAMAS 


750  RETURN 

760  LINE<120, 113) -(133,  126) 
770  LINEC133, 113) - (120, 126) 
780  RETURN 

790  LINE ( 153, 1 13) - ( 163, 126) 
800  LINE(163, 113) - (153, 126) 
810  RETURN 


o 


820 

IF 

A ( 1 ) =1 

AND 

A ( 2) =1 

AND 

A ( 3) =1 

GOTO 

1030 

830 

IF 

A ( 4 ) =1 

AND 

A ( 5 ) =1 

10305  6 ) =1  GOTO  1030 

840 

IF 

A ( 7) =1 

AND 

A ( 8 ) =1 

AND 

A ( 9) =1 

GOTO 

1030 

850 

IF 

A ( 1 ) =1 

AND 

A ( 4 ) =1 

AND 

A ( 7 ) =1 

GOTO 

1030 

860 

IF 

A ( 2 ) =1 

AND 

A ( 5 ) =1 

AND 

A ( 8) =1 

GOTO 

1030 

870 

IF 

A ( 3 ) =1 

AND 

A ( 6 ) =1 

AND 

A ( 9 ) =1 

GOTO 

1030 

880 

IF 

A ( 1 ) =1 

AND 

A ( 5 ) =1 

AND 

A ( 9) =1 

GOTO 

1030 

890 

IF 

A ( 7) =1 

AND 

A ( 5 ) =1 

AND 

A ( 3 ) =1 

GOTO 

1030 

900 

IF 

A  ( 1 ) =2 

AND 

A (2) =2 

AND 

A ( 3) =2 

GOTO 

1040 

910 

IF 

A ( 4 ) =2 

AND 

A ( 5 ) =2 

AND 

A ( 6 ) =2 

GOTO 

1040 

920 

IF 

A ( 7) =2 

AND 

A ( 8) =2 

AND 

A ( 9) =2 

GOTO 

1040 

930 

IF 

A ( 1 ) =2 

AND 

A (4) =2 

AND 

A ( 7) =2 

GOTO 

1040 

940 

IF 

A ( 2) =2 

AND 

A (5) =2 

AND 

A ( 8) =2 

GOTO 

1040 

950 

IF 

A ( 3 ) =2 

AND 

A (6) =2 

AND 

A  <  9 ) =2 

GOTO 

1040 

960 

IF 

A  ( 1 ) =2 

AND 

A ( 5) =2 

AND 

A ( 9 ) =2 

GOTO 

1040 

970 

IF 

A ( 7) =2 

AND 

A ( 5 ) =2 

AND 

A (3) =2 

GOTO 

1040 

980 

FOR  1=1  TO  9 

990 

IF 

A ( I ) =0 

THEN  GOTO  . 

1020 

1000  NEXT  I 
1010  GOTO  1050 
1020  RETURN 

1030  PSET ( 20, 1 65) : PRINTttl , " TE  HE  GANADO" : GOTO  1060 
1040  PSET (20, 165) :PRINT#1, "HAS  GANADO": GOTO  1060 
1050  PSET (20, 165) :PRINT#i, "PARTIDA  NULA": GOTO  1060 
1060  PRINT81 , "PULSA  C  PARA  CONTINUAR" 

1070  C$=INKEY*:IF  C$="”  THEN  1070 

1080  IF  C$="C"  OR  C*="c"  THEN  SCREEN  0:RUN  ELSE  END. 
1090  GOSUB  300 
1100  FOR  D=I  TO  9  ' 

1110  IF  A ( D ) =1  THEN  GOSUB  1150 
1120  IF  A ( D ) =2  THEN  GOSUB  1170 
1130  NEXT  D 
1140  RETURN 

1150  ON  D  GOSUB  550,580,610,640,670,700,730,760,790 
1160  RETURN 

1170  ON  D  GOSUB  370,390,410,430,450,470,490,510,530 
1180  RETURN 
1190  IF  A ( 1 ) =1 


AND  A ( 2) =1 
ND  A ( 3 ) =1  THEN  B=2: RETURN 
1200  IF  A ( 4 ) =1  AND  A<5)=1 
ND  A ( 6 ) = 1  THEN  B=5: RETURN 
1210  IF  A ( 7 ) =1  AND  A(8)=l 
ND  A  ( 9  )  =  1  THEN  B=8: RETURN 
1220  IF  A ( 1 ) =1  AND  A(4)=l 
ND  A  ( 7 )  =  1  THEN  B=4 : RETURN 
1230  IF  A ( 2 ) =1  AND  A(5)=l 
ND  A ( 8 ) =1  THEN  B=5: RETURN 
1240  IF  A ( 3 ) =1  AND  A(6)=l 
ND  A ( 9 ) =1  THEN  B=6: RETURN 
1250  IF  A ( 1 ) =1  AND  A(5)=I 
ND  A  ( 9 )  =  i  THEN  B=5: RETURN 
1260  IF  A ( 3 ) = 1  AND  A(5)=l 
ND  A ( 7 ) =1  THEN  B=5: RETURN 
1270  IF  A ( 1 ) =2  AND  A (2) =2 
14368  RETURN  ELSE  IF  A ( 1 ) =2 
AND  A (2) =2  AND  A (3) =2  THEN 


AND  A ( 3 ) =0  THEN  B=3: RETURN  ELSE  IF  A(l)=l  AND  A<2)=0  A 
ELSE  IF  A ( 1 ) =0  AND  A(2)=l  AND  A(3)=l  THEN  B=i: RETURN 
AND  A ( 6) =0  THEN  B=6: RETURN  ELSE  IF  A(4)=i  AND  A(5)=0  A 
ELSE  IF  A ( 4 ) =0  AND  A(5)=i  AND  A(6)=i  THEN  B=4: RETURN 
AND  A ( 9 ) =0  THEN  B=9 : RETURN  ELSE  IF  A(7)=l  AND  A(8)=0  A 
ELSE  IF  A ( 7 ) =0  AND  A(8)=l  AND  A<9)=1  THEN  B=7: RETURN 
AND  A ( 7 ) =0  THEN  B=7: RETURN  ELSE  IF  A(l)=l  AND  A(4)=0  A 
ELSE  IF  A ( 1 ) =0  AND  A(4)=l  AND  A(7)=l  THEN  B=i: RETURN 
AND  A ( 8 ) =0  THEN  B=8: RETURN  ELSE  IF  A(2)=l  AND  A(5)=0  A 
ELSE  IF  A  ( 2 )  =0  AND  A(5>=1  AND  A(8'.-=]  THEN  B=2*  RFTURN 
AND  A ( 9 ) =0  THEN  B=9: RETURN  ELSE  IF  A(3)=l  AND  A(6)=0  A 
ELSE  IF  A (3) =0  AND  A(6)=l  AND  A(9)=l  THEN  B=3: RETURN 
AND  A ( 9) =0  THEN  B=9 : RETURN  ELSE  IF  A(l)=l  AND  A(5)=0  A 
ELSE  IF  A  ( 1 )  =0  AND  A(5)=l  and  A C8^3  THEN  B“1  *  RETURN 
AND  A ( 7) =0  THEN  B=7: RETURN  ELSE  IF  A(3)=l  AND  A(5)=0  A 
ELSE  IF  A  ( 3 )  =0  AND  A(5)=l  AND  A*7)  =  i  tw£N|  B=-^  &ETURN 
AND  A ( 3 ) =0  THEN 

AND  A ( 2 ) =0  AND  A (3) =2  THEN  B=2: RETURN  ELSE  IF  A ( 1 ) =0 
B=l: RETURN 


AND  A (5) =2  AND  A(ó)=0  THEN  B=6: RETURN  ELSE  IF  A (4) =2 
B=5:  RETURN  ELSE  IF  A(4)=0  AND  A  (5)  =7  ANn  tuctn 

AND  A (8) =2  AND  A<9)=0  THEN  B=9: RETURN  ELSE  IF  A (7) =2 
B=8:  RETURN  ELSE  IF  A(7)=0  AND  A  (8)  =2  and  A(9'=2  t^n 
AND  A (4) =2  AND  A(7)=0  THEN  B=7: RETURN  ELSE  IF  A ( 1 ) =2 
B=4: RETURN  ELSE  IF  A ( 1 ) =0  AND  A (4) =2  AND  A (7) =2  THEN 
1310  IF  END ( 2 ) =2  AND  A<5>=2  AND  A<8)=0  THEN  B=8: RETURN  ELSE  IF  A(2)=2  AND  A(5)=0 
AND  A  ( 8 )  =2  THEN  B=5 :  RETURN  ELSE  IF  A(2)=0  AND  A¿5^=2  AND  THEN  B“2:RETUPN 


1280  IF  A ( 4 ) =2 
ND  A (6) =2  THEN 
1290  IF  A ( 7 ) =2 
ND  A (9) =2  THEN 
1300  IF  A ( 1 ) =2 
ND  A (7) =2  THEN 


AND  A ( 5) =0 
PFTIIRN 
AND  A ( 8 ) =0 
B=7í RETURN 
AND  A ( 4 ) =0 
B=l: RETURN 


1320  IF  A ( 3 ) =2 
ND  A (9) =2  THEN 
1330  IF  A ( 1 ) =2 
ND  A (9) =2  THEN 
1340  IF  A ( 3 ) =2 
ND  A ( 7 ) =2  THEN 
1350  B=INT ( RND ( 


1360 

1370 


IF  A ( B ) <  >0 
RETURN 


AND  A ( 6 ) =2  AND  A<9)=0  THEN  B=9: RETURN  ELSE  IF  A(3)=2  AND  A(6)=0 
B=ó: RETURN  ELSE  IF  A(3)=0  AND  A (ó) =2  AND  A (9) =2  THEN  B=3: RETURN 
AND  A ( 5 ) =2  AND  A(9)=0  THEN  B=9: RETURN  ELSE  IF  A ( 1 ) =2  AND  A(5)=0 
B=5: RETURN  ELSE  IF  A ( 1 ) =0  AND  A (5) =2  AND  A (9) =7  THEN  B=l: RETURN 
AND  A ( 5 ) =2  AND  A(7)=0  THEN  B=7: RETURN  ELSE  IF  A<3)=2  AND  A(5)=0 
B=5: RETURN  ELSE  IF  A (35=0  AND  A (5) =2  AND  THFN  Bf3"RRTMPN 

-TIME)*9) +1 
THEN  GOTO  1350 


o 
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PAGINA 


Í8 

30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
9  OR 


Este  es  un  programa  de 
ordenación  de  datos 
numéricos  de  hasta  seis 
cifras,  para  su  utilización  en 
cualquier  tipo  de  cálculo 
estadístico  o  de 
contabilidad.  Es  una 
ordenación  por  páginas  de 

m  tm  EB?gRg^¿5^6NeomGHT-MONSER  **** 

REM  ****  INTRODUCCION  DE  DATOS  **** 

COLOR  1,14 


DE  DATOS  " ; D 


i; : INPUT-DATO- 
PRINT : PRINT" 


treinta  datos  cada  una  con 
la  posibilidad  de 
consultarlas  tanto  hacia 
adelante  como  hacia  atrás, 
pudiendo  modificar 
cualquier  dato. 

En  este  caso  hemos 
programado  un  cálculo 
estadístico,  el  del  ERROR 
DE  GAUS,  que  se 
encuentra  entre  las  líneas 
550  y  690  del  listado,  si  bien 
puedes  sustituirlo  por  otro 
de  tu  interés. 


" ;  a  <  i ) 

DATOS  INTRODUCIDOS" :FOR 


H=1  TO  500:  NEXT  H 


PAGINACION  **** 

'XX***  NO  HAY  MENOS  PAGINAS  ****-*":  NP=NP  + 1 
PRINT  "*-**-**  NO  HAY  MAS  PAGINAS  **2**“ : NP=NP- 
LA  PAGINA  **-** 


’;d 

-1)*36 


KEY  OFF 
SCREEN  0 
CLS 

INPUT  "  NUM. 

DIM  A (D) 

FOR  I =1 TO  D 
PRINT: PRINT 
IF  1=  D  THEN 
NEXT 
CLS 
NP=1 

REM  ****  LIMITES  DE 
IF  NP=0  THEN  PRINT 
IF  NP*30-D>=30  THEN 
REM  ****  FORMATO  DE 
2=  ( NP- 1 )  *-30 
FOR  I  =Z+1  TO  D 

LOCATE  1,2:  PRINT  "NR  DE  DATOS 
X=  INT ( ( 1-1 ) / 10  MOD  30) *12- (NP- 
Y= ( <I-1)  MOD  10  ) +4 
LOCATE  23, 2: PRINT  "PAG  NUM.";NP 
LOCATE  x.y.-print  i " - " ; A < i ) ; : b*=str* < a < i ) ) ; 

IF  I=Z+30THEN  GOTO  310 

IF  I=D  THEN  LOCATE  5, 16: PRINT  "***  ULTIMOS  DATOS  ***" 

NEXT 

REM  ****  OPCIONES  **** 

LOCATE  1,16: PRINT  "PULSE  +  PARA  PAG.  SIGUIENTE" 

LOCATE  1,18  : PRINT  "PULSE  -  PARA  PAG.  ANTERIOR" 

LOCATE  1,20  :PRINT  "PULSE  M  PARA  MODIFICAR  DATOS ";: PRINT  STRING$ (10,32) 
LOCATE  1,22: PRINT  "PULSE  C  SI  LOS  DATOS  SON  CORRECTOS 
REM  ****  PROGRAMACION  DE  LAS  DIVERSAS  OPCIONES  **** 

AS¡=INKEYS¡ 

IF  A$="+"  THEN  CLS: BEEP:NP=NP+l: GOTO  170 
IF  A$="-H  THEN  CLS: BEEP: NP=NP-1: GOTO  170 
IF  A$="M"  OR  A$="m" THEN  BEEP: GOTO  430 
IF  A$="C"OR  A$="c"  THEN  BEEP: GOTO  490 
GOTO  360 

REM  ****  MODIFICACIONES  **** 

LOCATE  1 , 22: PRINTSTRING$ (36, 32 ) 

LOCATE  1,20: INPUT" INDIQUE  NUM. DE  DATO  A  MODIFICAR" ; I : IF  I >NP*30  OR  I<NP*30-2 
I >D  THEN  BEEP: LOCATE  1 , 22: PRINT"EL  DATO  NUM";I"NO  ESTA  EN  PANTALLA ": FOR  V=1 


:PRINTSTRING$<7-LEN<B*i)  ,32) 


II "CONTIENE  EL  VALOR" ; A ( I ) ; : PRINTSTRINGÍ ( 4 


THEN 

THEN 


GOTO  550 
CLS: GOTO 


170 


1 XXX  ********  ERROR  DE  GAUSS  XXXXXXXX***" 


TO  1100: NEXT: GOTO  310 
450  BEEP: LOCATE  1 , 20: PRINT " EL  DATO  NR" 

32) 

b 60  LOCATE  1,22: INPUT" INTRODUZCA  EL  NUEVO  VALOR  ";A(I):IF  A(I) >999999!  THEN  A(I) 
=999999! 

470  GOTO  170 

480  REM  ****  REALIZACION  DE  CALCULOS  ****  m  ^ 

490  CLS:  BEEP: PRINT  "QUE  CALCULO  REALIZARA  CON  SUS  DATHSí ■ : PRTNT; PRTNT"-  PULSE 
R  PARA  REVISAR  DATOS  " 

500  PRINT: PRINT"-  PULSE  G  PARA  ERROR  DE  GAUSS" 

B$=INKEY$ 

IF  B$="G"  OR  B*="g" 

IF  B*="R"  OR  B *="r' 

GOTO  510 

BEEP: CLS: PRINT: PRINT 
FOR  1=1  TO  D 
S=S+A ( I ) 

NEXT  I 
M=S/D 

FOR  1=1  TO  D 
S2=S2+(A(I)-M)^2 
NEXT 

E=SQR(S2/ ( D* ( D- 1 ) ) ) 

LOCATE  3,6: PRINT "MEDI A= " ; M 
LOCATE  3, 9: PRINT"ERROR  ABSOLUTO=";E 
ER=E/M 

LOCATE  3,12: PRINT "ERROR  RELATI VO=“ ; ER 
TE=ER*100 

LOCATE  3,15  :  PRINT"%  DE  ERROR=" » TE 

LOCATE  1,20  : LINE  INPUT "DESEA  REALIZAR  ALGUN  CALCULO  MAS  S/N";J$ 

IF  J$="S"  OR  Jí="s"  THEN  S=0:S2=0:  GOTO  490  ELSE  GOTO  720 
END 


510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 


530  CASSETTE 
ESPECIAL  PARA 
ORDENADOR 


MONSER 


I30  CJVSSETTE  PARA  ORDENADOR 


C-30  CASSETTE  ESPECIAL  PARA  ORDENADOR 


Con  la  marca  Monser  sobre  el  cassette,  usted  obtiene  no  soláuSenRT^^B^Wnte  cinta  para 
sino  también  una  cassette  que  le  proporciona  todas  las  funciones  y  conveniencias  que  requiera  c 
cassette  para  ordenadores  personales  Monser  está  diseñado  para  ser  usado  con  microcomputadores 
combinación  única  de  precisión  v  ejecución. 


DE  VENTA  EN  TIENDAS  ESPECIALIZADAS 


Para  envíos  dirigirse  a  Monser,  S.A.  c 1  Argos  n^  9.  Tlf.  742  72  12  /  96 


MSX: 

JAPON 

-USA 


Allá  hacia  1980,  casi  todo  el  mundo  pensaba 
que  Japón  se  haría  en  pocos  años  con  el  mercado 
de  los  computadores  personales.  Las  industrias 
del  lejano  país  no  podían  desaprovechar  la 
oportunidad  de  unos  productos  de  gran  consumo 
y  precio  asequible;  ya  lo  había  hecho  con  otros 
artículos,  como  los  electrodomésticos,  y  les  había 
ido  bien. 


PERO  quienes  así  pensaban  se 
equivocaron  en  sus  predicciones. 
Japón  no  invadió  el  mundo  con  sus 
ordenadores  personales,  ni  tampo¬ 
co  luego  con  los  profesionales  pe¬ 
queños.  Por  eso,  los  directivos  de 
las  empresas  empezaron  a  tantear 
otras  posibilidades  y,  por  fin,  pare¬ 
ce  que  han  conseguido  acertar, 
aunque  no  tanto  como  para  des¬ 
bancar  a  sus  competidores.  La  oca¬ 
sión  les  ha  llegado  con  las  máqui¬ 
nas  MSX. 

Son  varias  las  empresas  japone¬ 
sas  que  han  lanzado  estas  máqui¬ 
nas,  en  colaboración  con  la  nortea¬ 
mericana  Microsoft.  Los  entendi¬ 
dos  las  han  recibido  bien  en  cuanto 
a  su  calidad,  pero  no  tanto  por  lo 
que  respecta  al  precio.  La  familia 
de  máquinas  MSX  tiene  ante  sí  un 
buen  futuro,  debido  a  su  standard 
común,  que  ha  llevado  a  muchos 
fabricantes  a  idear  programas  com¬ 
patibles.  La  unificación  no  puede 
sino  redundar  en  provecho  de  unas 
y  otros  y,  sobre  todo,  del  público. 

Otra  ventaja  de  las  MSX  es  su 
origen.  Su  antepasado  inmediato 
es  un  viejo  sistema  operativo,  el 


CP/M,  y  eso  significa  que  un  siste¬ 
ma  MSX  puede  convertirse  en  una 
máquina  CP/M  con  sólo  acoplarse 
uno  o  dos  -disk  drives».  La  gente 
busca  ya  algo  más  que  jugar  a  los 
marcianitos  y  en  el  sistema  MSX 
puede  encontrar  esas  otras  cosas, 
es  decir,  un  equipo  idóneo  por  sus 
aplicaciones  tanto  domésticas 
como  profesionales;  pero  además 
desea,  ante  la  procelosa  marea  de 
siglas  al  asalto  del  mercado,  que 
sus  aparatos  sean  compatibles  casi 
con  cualquier  cosa,  y  ahí  está  el  in¬ 
terés  del  sistema  CP/M:  un  montón 
de  programas,  bastante  baratos, 
gue  añadir  a  los  propios  del  MSX. 

Estas  razones,  las  de  las  compa¬ 
tibilidades,  son  las  que  animan  a 
los  japoneses  a  intentar  reducir  al 
mínimo  los  costes  de  producción 
de  sus  MSX.  Los  próximos  tendrán 
siete  circuitos  y  eso  quiere  decir 
menor  precio  y  mayor  pequenez. 
Yamaha  ha  abierto  ya  el  camino 
con  un  órgano  nuevo.  El  micropro¬ 
cesador  ideal  para  la  mayoría  de 
estas  máquinas  será  el  Z80  de  8 
bits,  el  mismo  que  llevan  emplean¬ 


do  los  fabricantes  del  resto  del 
mundo  desde  hace  años.  Compati¬ 
bilidad  entre  tecnología  y  progra¬ 
mas  a  ambos  lados  del  Pacífico. 
Pero  el  interés  de  la  familia  MSX 
no  acaba  aquí. 

Otro  aspecto  importante  es  su 
compatiblidad  con  la  actual  norma 
de  Microsoft  para  los  ordenadores 
personales  de  16  bits,  o  sea,  el  siste¬ 
ma  operativo  MS-DOS.  No  es  que 
las  MSX  funcionen  con  programas 
MS-DOS,  pero  sí  que  pueden  leer 
sus  ficheros  de  datos.  Y  lo  contra¬ 
rio  también  sucede. 

Esto  es  importante  para  el  futuro 
de  los  productos  japoneses,  ya  que 
su  éxito  depende  de  que  acierten 
con  el  sector  del  mercado  que  aún 
no  copan  o  puedan  dejar  de  copar 
las  empresas  de  Estados  Unidos, 
en  especial  IBM.  En  realidad,  el 
sistema  MSX  terminará  pasándose 
con  el  tiempo  a  los  16  bits;  por  lo 
que  respecta  a  las  máquinas,  ya  de¬ 
bería  haberlas.  Su  compatibilidad 
con  el  MS-DOS  sería  total,  sin  me¬ 
noscabo  de  seguir  con  la  del  CP/M. 
No  sería  difícil,  por  ejemplo,  fabri¬ 
car  un  ordenador  MSX  con  algún 
procesador  de  la  familia  8086/8088 
los  mismos  que  se  utilizan  en  el  sis¬ 
tema  MS-DOS. 

Habrá  que  apresurarse  también 
a  poner  a  punto  los  productos  y  es¬ 
tar  atentos  a  los  que  lance  IBM, 
como  siempre.  Los  PC  de  esta  fir¬ 
ma  no  han  tenido  excesivo  éxito  y 
hay  indicios  de  que  va  a  abandonar 
su  fabricación  por  algún  otro  mo¬ 
delo,  quizá  basado  en  el  micropro¬ 
cesador  80186  de  Intel  en  vez  del 
80286  empleado  en  el  PC/AT,  or¬ 
denador  más  perfecto  que  el  PC  y 
bastante  más  caro;  pero  aunque 
lanzara  un  nuevo  ordenador  basa¬ 
do  en  el  8088,  éste  sería  del  tipo 
CMOS,  también  compatible  pero 
menos  asequible  a  los  bolsillos,  por 
lo  que  se  abriría  un  hueco  que  po¬ 
drían  aprovechar  los  japoneses 
para  introducir  sus  productos 
MSX. 

Está  surgiendo  un  nuevo  tipo  de 
usuario,  pequeños  profesionales  y 
personas  que  quieren  sacar  el  má¬ 
ximo  provecho  de  la  máquina  que 
tienen  en  su  hogar,  que  buscarán  la 
potencia  y  el  rendimiento  de  los 
PC,  pero  rechazarán  su  coste.  Esta 
es  la  ventaja  y  la  oportunidad  del 
sistema  MSX  aprovechando  su 
compatibilidad  con  el  MS-DOS  y  la 
previsible  evolución  hacia  los  16 
bits. 
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PROGRAMAS 


*■*** 


10  REM  ****  PROGRAMA: HALLEY  **** 

20  REM  **#*  LUIS  SANGUINO  -  COPYRIGHT  MONSER 
30  REM  ****  TITULO: "COMETA  HALLEY"  **#* 

40  COLOR  1,11,8  .  . 

50  CLS:  SCRÉEN  3  ..  . 

60  OPEN  "GRP: "AS#1  •  *  ' 

70  PSET  ( 1 , 50)  :  PRINTttl  ,  "  COMETA  "  .'•••• 

80  PSET  (1.110):  PRINTffl,  *  HALLEY  " 

90  FOR  1=1  TO  800: NEXT  1 

100  CLOSE  \  :  \ 

110  REM  ****  ESTRELLAS  IHHHf- 

120  COLOR  15,1,4  .  . 

130  SCREEN  2  ...  r.; 

140  N=RND ( -TIME) 

150  FQR  1=1  TO  250  rTEP  1.25  .1: 

IH  -a 

180  REM  PLANETAS  ****  •/: 

190  CIRCLE  (50,30)  ,15,7  *  ,.1 

200  PAINT (50,30) , 7 
210  CIRCLE (50,30) ,25,7, ,, .3 
220  CIRCLE (180, 130). 30, i i 
230  PAINT (180, 130), 11 
240  CIRCLE (195, 138), 3,1 
250  PAINT  (195, 138),  i  • Jt  ! 

260  CIRCLE ( 195, 138) ,5, 1 
270  CIRCLE(165, 120)  ,2,2  *í  *  •• 

280  PAINT (165, 120) ,2  •  * 

290  CIRCLE  (165,  120)  ,4,2  *-  . 

300  CIRCLE ( 192, 112) ,2, 4 
310  PAINT(192, 112) ,4 
320  CIRCLE (192, 112) ,4,4 
330  CIRCLE(170, 130) ,50, 11, , , .3 
340  CIRCLE (120, 130) ,5, 12 
350  PAINT (119, 130) , 12 
360  PAINT(121, 130) , 12 
370  CIRCLE(200,30> ,25, 15 
380  PAINT (200, 30) ,15 
390  CIRCLE (210, 31 ) ,20, 1 
400  PAINT (210,30) ,1 
410  REM  ****  COMETA  Y  COLA  **** 

420  C=40 

430  FOR  H=1  TO  162 
440  C=C+ . 37 

450  IF  0185  THEN  GOTO  720 
460  PSET (H.C-2) , 15 

470  PSET ( H, C-3) ,1  ... 

.480  PSET  (H+5,C-4)  ,  15  •.  .  . 

490  PSET(H+2,C-4) , 15  1 

500  PSET (H+3, C-6) , 15 
'510  CIRCLE(H+9,C) , 1, 15  * 

520  PAINT(H+9,C) , 15 
530  PRESET (H, C-2) , 1 

540  PRESET  (H+5,C-4)  ,  1  ••*.. 

550  PRESET(H, C-3)  ,  1 
560  PRESET  (H+2,  C-4)  ,  1  . 

570  PRESET (H+3, C-6) , 1 

580  CIRCLE  (H  +  9.C ),  1,1  ...  .. 

. 590  PAINT(H+9,C),i:BEEP 
600  NEXT  i . , 

,610  REM  IMPACTO  **** 

’ 620  FOR  M=1  TO  6 
630  CIRCLE ( 171 , 100) , M, 8 

•  640  NEXT  M 

650  PLAY  "T240CO2DDDFT250O1BDGECCCCC" 

660  FOR  B=1  TO  60  '  • 

•670  NEXT  B  .. 

680  REM  ****  CRATER  ****  .  * 

:ó90  for  z=i  to  6  •  .*:*•  .  ' 

700  CIRCLE  (171, 100)  ,Z,  1  *  ‘  •* 

710  FOR  R=1  TO  6  STEP  2 

'720  NEXT  R  -  . 

'  730  NEXT  Z 

740  FOR  T=1  TO  3000: NEXT  T 
•750  SCREEN  1 : KEY  OFF 

.760  LOCATE  1,10:  PRINT  "QUIERES  VERLO  OTRA  VEZ  S/N' 
770  A$=INKEY$ 

780  IF  A$="S"OR  A$="5"THEN  CLS  : GOTO  40 
,  790  IF  A$="N"  OR  Aí$="n“  THEN  CLS:  END  ;.  - 

•  800  GOTO  770 

•810  END  -.  :*.•:< 


•t.\  •  t 

•.  •  í  !1  ,t  , 
•  •  « 


Este  es  un  sencillo 
ejemplo  de  representación 
animada  en  el  que  un  fondo 
estrellado,  dos  planetas  con 
sus  satélites  y  una  inmensa 
luna,  bastan  para 
trasladarte  al  espacio, 
a  través  del  cual  podemos 
ver  el  hipotético  viaje  de  un 
cometa,  por  que  no  el 
Halley,  viaje  que  termina 
con  un  estruendoso  impacto 
sobre  un  planeta  desértico, 


•t 


•  *1  ? 


i  ** 

9  •  , 
«  t  »• 


V  V 

).'  n 


•  •  «H 
•  *»« 

•  I 

•  «v 


ij 


23 


MONSER,  S.A. 
Calle  Argos,  9 
28037  MADRID 
Telf.:  742  7212/96 


Ahora  Vd.  puede  tener  todo  su  equipo  de  ordenador  en  un  gabinete  de  estilo  con 


su  equipo  estará  más  protegido. 


NO  PIERDA  ESTA  OPORTUNIDAD  UNICA 

Tendrá  espacio  a  su  alcance  para  hardware  y  software. 

Dispondrá  de  una  unidad  de  puente  de  56,5  cm  ancho,  1 7  cm  de  alto  y  30,5  cm 
de  fondo  para  su  televisor  o  monitor. 


rato  de  cassette  o  microdrive. 

En  una  tercera  unidad  tiene  amplio  espacio  para  guardar  cintas,  diskettes,  joys- 
ticks,  revistas,  libros,  etc. 

Se  vende  desarmado  en  una  caja  plana,  es  muy  fácil  de  armar,  utilizando  sola¬ 
mente  una  llave  ALLEN. 

El  gabinete  se  presenta  en  dos  colores,  NOGAL  y  ROBLE  y  tiene  dimensiones 


ANCHO  85,5  cm.  •  ALTO  79,5  cm.  •  FONDO  60  cm. 


Y  ADEMAS  LOS  INTERFACES  PARA  SU  JQYSTICK, 
IMPRESORA  O  MICRODRIVE 

Interface  DK’Tronics 

Doble  salida  en  la  parte  superior.  La  primera  para  joystick 
tipo  Kempston  y  la  segunda  para  software 
con  teclas  6, 7, 8, 9  y  0  o  redefinición  de  teclas. 

Ref.  30001.  P.V.P.  3.760  ptas. 

Interface  Centronic. 

Para  impresora  y  microdrive  en  paralelo.  Ref.  30010. 

P.V.P.  11.358  ptas. 


Para  pedidos  simplemente  rellene  el  cupón. 


ORDENA  TU  ORDENADOR 


LOS  JOYSTICKS  DE  GRAN  RESPUESTA  Y  DURABILIDAD 


Por  favor,  envíenme:(marco  con  una  X): 


REF. 

COLOR 

CANTIDAD 

PRECIO 

SUBTOTAL 

GABINETE 

40005 

Nogal 

8.975 

40005 

Roble 

8.975 

JOYSTICK 

30007 

1.900 

30003 

2.598 

30008 

3.724 

30005 

2.450 

INTERFACE 

30001 

30010 

3.760 

11.358 

Gastos  de  envío  gabinete  800  ptas.,  joysticks  200  ptas. 

TOTAL 


Forma  de  pago: 

□  Talón  bancario  a  nombre  de  MONSER,  S.A. 

□  Giro  postal  núm . 

□  Contra  reembolso 

Nombre  . 

Domicilio 
Ciudad.... 

C.P . 


Provincia 

Telf.: . 

FIRMA 


IBTIW.'W.l'WW 


Análisis 

Software 


Agárrate  fuerte  a  los 
mandos  de  tu  super-delta 
pues  estás  a  punto  de 
despegar  en  uno  de  los 
juegos  mejor  pensado 
de  los  últimos  tiempos . 


Con  una  perspectiva 
tridimensional  excelentemente 
lograda  y  unos  gráficos  esplendidos 
se  nos  presenta  un  paisaje  futurista 
del  interior  de  un  complejo  militar 
en  el  que  nos  adentraremos  con  el 
fin  de  destruir  el  Zaxxon  que  no  es 
sino  un  arma  ultrasecreta  que  posee 
el  enemigo  y  que  será  defendida  por 
este  con  uñas,  dientes  y  todo  lo  que 
esté  a  su  alcance  incluido  el  propio 
Zaxxon,  que  son  dos  torres  móviles 
que  dispararán  sobre  tí  unos  casi 
ineludibles  misiles  aire-aire,  pero 
previamente  a  eso,  habrás  de  pasar 
por  múltiples  peligros,  desde  la 
barrera  inicial  que  ya  es  algo  difícil  y 
que  se  complicará  a  medida  que 
superemos  niveles  en  el  juego,  hasta 
la  propia  falta  de  combustible. 

Vamos  a  ver  uno  por  uno  todos 
los  peligros  que  te  acechazan 
durante  tu  viaje. 

En  primer  lugar  como  ya 
deciamos,  tenemos  el  muro  de 
piedra  y  bloques  de  hormigón  que 


se  interpone  a  nuestro  paso  y  que 
debemos  atravesar  por  encima 
pasando  por  entre  la  ventana  al 
efecto,  la  cuál  a  medida  que 
avancemos  en  los  niveles  de 
dificultad  se  irá  haciendo  más  y  más 
complicada.  A  continuación 
tendremos  que  eliminar  la  mayor 
cantidad  posible  de  bunker’s  de  los 
que  hay  muchos  más  de  los  que 
nosotros  quisiéramos,  procurando 
al  mismo  tiempo  que  no  nos  den  con 
sus  directos  proyectiles.  Habrá  que 
vigilar  continuamente  el  fuel,  pués 
este  se  vá  consumiendo  a  medida 
que  avanzamos  con  nuestro  reactor, 
para  recargar  los  depósitos  podemos 
acabar  con  los  silos  que  al 
efecto  hay  distribuidos  a  lo  largo  de 
todo  el  recorrido,  pero  para  hacerlo 
debemos  efectuar  en  múltiples 
ocasiones  un  vuelo  rasante  que 
puede  acabar  con  nosotros  pues 
solo  con  que  rocemos  el  suelo  ó 
cualquier  otro  objeto,  saltaremos 
en  mil  pequeños  pedacitos. 

Además  no  será  difícil  que 
volando  a  esa  altura  nos  alcance 
alguno  de  los  misiles  tierra-aire  con 
que  nos  obsequiará  el  enemigo,  y 
que  saldrán  del  suelo  sin  previo 
aviso,  obligándonos  a  hacer  las  más 
bruscas  maniobras. 


Blancos  enemigos 

Puntos 

Base  de  misiles 

i 

100 

Nave  enemiga 

200 

Misiles  Robot 
(sobre  asteroide) 

Depósito  de 
carburante 

300 

Torre  con  cañón 

é 

300 

Mobots 

* 

400 

Jefe  de  escuadrilla ¿¿3*' 

400 

Misiles  Robot  ¿^¡£82*500 

(en  área  de  xobo\s)¿P^ 

Zaxxon™ 

5000 

Una  vez  que  hayamos  superado 
esta  primera  fase,  pasaremos  a  la 
segunda,  donde  hemos  de  afrontar 
un  combate  en  el  aire  con  los  cazas 
enemigos,  convenientemente 
provistos  de  misiles  aire-aire,  que 
harán  las  delicias  de  nuestro  reactor 
si  por  casualidad  nos  encontramos 
con  alguno  de  ellos,  (nos  iban  a 
tener  que  recoger  con  cuchara),  el 
único  medio  de  ataque  es  ponerte 
frente  a  ellos,  disparar  y  apartarte 
antes  de  que  te  alcance  su 
disparo. Después  bajaremos  de 
nuevo  a  ras  de  suelo  para  combatir 
contra  los  escurridizos  platillos 
volantes,  último  baluarte  de  defensa 
tras  el  cual  se  esconde  el  Zaxxon, 
que  se  te  mostrará  tan  solo  durante 
algunos  segundos  y  al  que  debes 
tratar  de  destruir  disparando  a 
discreción  sobre  él,  pero  ojo  que  el 
Zaxxon  no  es  manco  y  le  sobran 
recursos  para  exterminarte. 

Una  vez  que  desaparece  el 
Zaxxon  y  siempre  y  cuando  te  quede 
alguna  nave  para  continuar, 
volverás  a  empezar  el  juego  pero 
esta  vez  en  un  nivel  muchísimo  más 
difícil  que  el  anterior. 

Un  pequeño  truco  para  pasar  la 
barrera  de  bloques  de  hormigón  que 
se  te  ofrece  al  principio  de  cada 
nivel,  y  que  no  es  nada  fácil,  es 
guiarte  por  la  sombra  de  tu  avión,  si 
la  sombrea  la  pasa,  tu  también.  Esto 
que  decimos  a  primera  vista  puede 
parecer  una  tontería,  pero  dada  la 
perspectiva  en  que  se  nos  presenta 
el  muro,  es  harto  difícil  pasar  por  el 
pequeño  boquete  que  nos  deja. 
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Por  motivos  de  trabajo,  tengo 
que  viajar  por  toda  España,  por 
lo  que  me  gustaría  contactar  con 
personas  que  quieran  compartir 
ideas  y  tiempo  con  el  ordenador. 
No  importa  que  ellos  no  tengan 
ordenador,  tampoco  importa 
la  edad. 

Angel  Bautista  Jiménez 
C/  Río  Ebro,  14 
Teléf.  (976)  88  36  77 
Calatayud  (Zaragoza) 


Me  gustaría  contactar  con 
chicas-os  usuarios  de  MSX,  para 
cambiar  juegos,  experiencias,  e 
incluso  formar  un  club  de 
usuarios  en  Marbella.  Poseo 
bastantes  juegos  en  cinta  y 
cartucho. 

Emilio  García  Alario 
C/  José  María  Gironella,  3 
Teléf.  (952)  7  49  65 
Marbella  (Málaga) 


Intercambio  programas  MSX, 
tengo  Hero,  Computador 
adivino,  Keystone  Kaper,  Polar 
Star,  Pyramid  Ward,  etc. . .  y  gran 
cantidad  de  programas  tecleados 
muy  intersante. 

José  Corrales  Márquez 
C/  Avda.  de  Cortes,  22  Io 
Teléf.  11  09  21  _► 

Ubrique  (Cádiz)  _ 


PREGONERO 

e?sss-%gs£5Z 

vuestras  dudas ,  Prob  ¿¡vertidas  que  os  haya 

para  aquellas  mcd°‘fpZ  entrañable 
podido  ocumr  con  vuestro  de  s(¡r  a 

ordenador,  que  wctosvKg  podemos  darle 
próxima! 


Intercambio  programas  de 
buena  talla,  poseo  entre  otros 
River  Raid,  Beamrider,  Blagger, 
Disk  Warrior,  Samurai  Ninja, 
etc. 

Diego  Sánchez 
C/  Montoya,  1  -  7°-B 
Teléf.  (968)  80  43  32 
Alcantarilla  (Murcia) 


Usuarios  de  MSX 
agradeceríamos  contacto  para 
intercambiar  ideas  y  programas 
contestaré  a  todos. 

José  Atxurra  Par 
C/  Iturribide,  2  -  5°E 
Telef.  433  41  84 
48006  Bilb  no 


Intercambio  de  programas:  si 
quieres  tener  los  mejores 
programas  del  mercado, 
mándanos  una  cinta  y  larecibiras 
cargada  cargada  con  otro. 
Francisco  Herrera  Natera 
C/  Avda.  Conde  Vallellano,  17 
D. 

14004  Córdoba 


CLUB  DE  USUARIOS  MONSER 

— 

Enviar  el  cupón  a. 

_  nP  iisu ARIOS  MONSER 

CcLr^OUsSH»03r-^DB,D  ^  _Typc 

Podras  obtener ^EjSe^^Commodore  Soft  Magaz.ne», 

12/96 


Club  de  Oviedo,  con  Sección 
de  informática  (MSX, 

SPECTRUM,  AM3TRAD, 

ORIC)  desea  ampliar  el  n.°  de 
socios,  dirigirse  a: 

Alejandro  Fernández  Brizuela 
C/  Comandante  Caballero, 

4  -  7°-D 

33005  Oviedo _ 

_ _ 7T7T7jB~DÉ~TÍsUAFtlOS 

Deseo  inscribirme  el2  compromiso,  para  re- 

MONSER  sin  ,^9up  3ast  ¿  a  7os  descuentos  y 

cibir  información  V  ^C\ub. 
ofertas  especiales  ae 

Nombre . 

Dirección . 

Ciudad . 

Edad . 

Marca  del  ordenador 


. C.P. 

Profesión  . 


. Teléfono . 

Provincia . 

.  Fecha  compra 


FIRMA 

FECHA 


crasas  m 


breve  un  keypanel  de 


FE  DE  ERRATAS 

EN  EL  N.°  4  DE  MSX,  EN  EL 
PROGRAMA  CHOPPER,  FALTA 
ESTA  LINEA: 


200  IF  RND  (1).7  THEN  K  =  DR:  J  =  1:  GOTO  21 5 
205  J  =  4  :  /F  RND  (1)  <  5 THENK  K  =  1  :  GOTO  215 
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OFERTA  ESPECIAL 

EDICION  LIMITADA 


34  CASSETTES  con 

programas  full  memory 
(grabados  en  ambas  caras) 
para  Spectrum  48K  y  1 28K. 

Los  mejores  programas 
de:  Arcade 

Estrategia 

Simulación 

Didácticos 

Y  todo  presentado  en 
un  maravilloso  maletín 
porta-cassette 
como  obsequio  de 
MONSER,  S.A. 

Los  primeros  100  pedidos 
tendrán  un  regalo 
sorpresa. 


•  ,v 


/ 

<p 

4?  / 

/jP  /  -  J? 


&  o 


/ 


/ 


.  .  „  fll.  una  de  las  empresas  res- 

Spectravideo  fue  un  standard  MSX, 

ponsables  de  la  eU  nombre  no  ha  sido 
aunque  a  P°^e"' ?  s^ene  dentro  del  mundo 
uno  de  los  9.ue  ™a*|do  que  sus  ventas  no 
MSX,  del  mismo dadoras  en  este  terreno, 
son  de  lo  mas  „alees\a  empresa  no  esta  dis- 
A  pesar  de  tod  ,  para  demostrarlo 

•SSSJ£.  “Tpress. 


►  Mucho  es  lo  que  hay  que  decir 
sobre  este  modelo,  del  que  para 
esta  prueba  utilizaremos  un  prototi¬ 
po,  pués  el  modelo  definitivo  aún  no 
ha  salido  de  fábrica. 

De  entrada  nos  encontramos 
con  que  nuestro  MSX  de  siempre  se 
queda  pequeño  al  compararlo  con 
el  X’PRESS.  Este  dispone  en  el  mo¬ 
delo  de  serie  de  una  unidad  de  dis- 
quetes  de  3,5  pulgadas  incorpora¬ 
da  lo  que  ya  es  un  gran  adelanto, 
del  mismo  modo  una  salida  RS232c 
y  una  tarjeta  de  80  columnas  com¬ 
pletan  una  configuración  que  ya  se 
podría  llamar  profesional.  Lo  que 
queda  claro  a  simple  vista  es  que 
Spectravideo  ha  decidido  abando¬ 
nar  el  campo  de  los  ordenadores  lú- 
dicos  para  entregarse  más  de  lleno 
y  a  conciencia  en  el  campo  profe¬ 
sional,  como  las  especificaciones, 
periféricos  y  sofware  que  veremos 
más  adelante  nos  lo  demostrarán. 

La  facilidad  de  80  columnas  no 
sabemos  realmente  si  vendrá  ¡m- 
plementada  con  el  Hardware  o  si 
será  accesible  mediante  Software, 
pués  como  ya  hemos  dicho,  la  má¬ 
quina  de  que  disponemos  nosotros 
no  es  sino  un  prototipo.  De  cual¬ 
quier  modo,  no  debemos  confundir 
esta  facilidad  con  la  que  nos  ofrece 
el  MSX-DOS,  pues  la  del  MSX-DOS 
será  por  Software  utilizando  proba¬ 
blemente  el  comando  SCREEN 
normal,  pero  vayamos  por  partes. 

Vamos  ahora  a  estudiar  la  máqui¬ 
na  por  cada  uno  de  sus  lados,  por 
su  interior  y  posteriormente  por  su 
software,  después  de  todo  esto  no 
tendrán  más  remedio  que  darnos  la 
razón. 


LA  CAJA 

La  caja  donde  se  aloja  el 
X’PRESS,  entendiendo  por  caja  la 
carcasa  del  teclado  en  cuyo  interior 
va  la  circuitería,  es  de  un  acabado 
impecable  denotando  un  gusto  ex¬ 
quisito  en  los  diseñadores  de  Spec¬ 
travideo,  de  color  blanco  amarfila¬ 
do  y  con  teclas  de  colores  poco 
contrastados,  la  pimera  impresión 
es  la  de  seriedad  y  buen  gusto. 

Empecemos  a  darle  vueltas  a  la 
dichosa  cajita. 

Por  el  lado  derecho  de  la  misma, 
nos  encontramos  con  los  puertos 
para  Joystick,  el  puerto  del  cassette 
y...  ¡oh!  maravilla  de  las  maravillas, 
la  ranura  de  una  disquetera  de  3,5 
pulgadas,  que  hará  las  delicias  de 
cualquier  usuario,  con  un  tiempo 


máximo  de  acceso  de  1,8  segun¬ 
dos. 

Por  la  parte  trasera  del  aparato 
nos  encontramos  con  una  especie 
de  asa  abatible  que  una  vez  abierta 
sirve  como  pie  trasero  del  ordena¬ 
dor,  ofreciendo  un  ángulo  al  teclado 
muchísimo  más  cómodo,  y  que  a  su 
vez  deja  al  descubierto  una  serie  de 
conectores,  que  empezando  desde 
la  izquierda  son  los  siguientes:  Un 
conector  de  tipo  D  del  port  RS232, 
otro  también  de  tipo  D  para  conec¬ 
tar  un  segundo  disquete  (no  olvide¬ 
mos  que  en  el  resto  de  los  MSX  la 
conexión  para  el  primer  disquete  ha 
de  hacerse  por  medio  del  Slot  para 
cartuchos  que  incorpora  el  stan¬ 
dard),  continuando  con  los  conec¬ 
tores  diremos  que  el  siguiente  es 
uno  del  tipo  Centronics  para  conec¬ 
tar  la  impresora,  uno  para  la  cone¬ 
xión  a  un  televisor  (el  conocido  RF), 
el  de  audio,  el  de  video  y  el  de  toma 
de  corriente.  Omitimos  el  lado  iz¬ 
quierdo,  frente  é  inferior  por  no  te¬ 
ner  nada  que  merezca  nuestra 
atención  salvo  las  clásicas  ranuras 
de  ventilación  imprescindibles  en 
cualquier  aparato  electrónico  que 
debe  estar  encendido  durante  lar¬ 
gos  periodos  de  tiempo. 


EL  TECLADO 

Este  es  uno  de  esos  teclados  que 
podríamos  llamar  lentos,  con  las  te¬ 
clas  alfanuméricas  de  un  color  muy 
parecido  a  las  de  función  y  éstas 
colocadas  como  una  fila  más  del 
mismo,  solo  distintas  de  las  demás 
por  un  suave  cambio  de  color  y  un 
tamaño  poco  mayor  que  las  otras 


Con  73  teclas  es  uno  de  los  más 
completos  que  hemos  visto  dentro 
del  Standard  MSX.  Comenzando 
por  la  derecha  del  teclado,  nos  en¬ 
contramos  en  primer  lugar  con  las 
teclas  de  cursor,  con  una  disposi¬ 
ción  poco  útil  para  utilizarlas  en 
cualquier  juego,  aunque  estética¬ 
mente  muy  conseguidas;  sobre  és¬ 
tas  se  encuentran  ubicados  dos 
diodos,  uno  que  informa  del  encen¬ 
dido/apagado  y  otro  que  se  ilumina 
cuando  el  disquete  está  girando. 
Del  mismo  modo  existe  un  botón  en 
la  parte  posterior  que  cuando  hay 
un  disquete  insertado  en  la  disque¬ 
tera  sobresale,  y  que  oprimiéndole 
conseguimos  que  la  máquina  escu¬ 
pa  el  disquete  que  tenía  alojado  en 
su  interior.  El  resto  del  teclado,  que 
es  del  tipo  QWERTY,  es  bastante 
cómodo  en  cuanto  a  separación  de 
las  teclas,  pero  no  tanto  por  la  simi¬ 
litud  de  colores.  Algo  importante 
que  se  ha  omitido  es  el  botón  de 
Reset,  tan  útil  en  todo  momento  y 
que  evita  que  la  circuitería  sufra  con 
sobrecarga  de  encendido/apagado 
de  todo  punto  innecesarias. 

Una  de  las  cosas  que  Spectravi¬ 
deo  ha  olvidado  (intencionadamen¬ 
te,  por  supuesto)  en  esta  máquina, 
es  el  teclado  numérico  separado  al 
que  nos  tiene  acostumbrados  en 
todos  los  modelos  anteriores. 

El  tacto  general  de  todas  las  te¬ 
clas  es  bastante  bueno  y  lo  mismo 
puede  decirse  de  la  respuesta  de 
las  mismas,  que  es  buena  y  rápida. 

Las  teclas  de  función  son  un 
poco  pequeñas,  sobre  todo  la  de 
RETURN,  de  igual  manera  se  hace 
difícil  en  los  momentos  de  apuro 
encontrar  la  tecla  stop,  que  está 
ubicada  en  la  parte  superior  dere¬ 
cha  del  teclado. 
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En  conjunto  este  teclado  es  difícil, 
pero  seguro  que  como  todos,  una 
vez  que  nos  acostumbremos  será 
tan  cómodo  como  cualquiera. 


en  las  características  de  la  máquina 
sino  también  en  el  Software  de  que 
disponga,  ya  ha  dotado  a  su  nuevo 
modelo,  antes  incluso  de  que  éste 


llegue  al  mercado,  de  una  buena 
cantidad  de  Soft,  además  de  por 
medio  de  los  correspondientes  pro¬ 
gramas,  hacerlo  compatible  CP/M 
2.2,  con  lo  que  correrán  en  él  todos 
los  programas  de  que  se  dispone 
bajo  este  sistema  operativo,  es  de¬ 
cir,  que  el  X’PRESS  soporta  tres 
sistemas  operativos  por  el  momento: 

El  Basic  MSX,  de  fábrica,  el  CP/M 
versión  2.2  y  MSX-DOS  versión 
1 .01 ,  lo  que  nos  hace  creer  que  se 
trate  simplemente  de  una  versión 
idéntica  del  DOS  standard  solo  que 
para  MSX. 

OTROS 

Spectravideo  ofrece  además  su 
modelo  junto  con  una  elegante  ma¬ 
leta  donde  introducir  y  transportar 
nuestra  maquinita,  lo  que  demues¬ 
tra  que  esta  firma  se  ha  tomado 
bastante  en  serio  lo  de  la  transpor- 
tabilidad. 

Por  otro  lado,  la  documentación 
con  que  Spectravideo  dota  a  su  or¬ 
denador  es  una  de  las  más  comple¬ 
tas  que  hemos  encontrado,  dando 
además  una  amplia  información 
con  su  correspondiente  manual  de 
cada  una  de  las  unidades  de  Soft 
que  le  acompañan  el  modelo. 


LA  ALIMENTACION 

La  alimentación  del  aparato  se 
hace  con  transformador  indepen¬ 
diente.  Esto  que  al  principio  pudiera 
parecer  un  paso  hacia  atrás  con 
respecto  al  resto  de  sus  compañe¬ 
ros  del  standard,  tiene  a  nuestro 
modo  de  ver,  dos  ventajas  clarísi¬ 
mas  que  son:  en  primer  lugar,  la  fa¬ 
cilidad  de  comercialización  en  cual¬ 
quier  país,  tenga  la  corriente  que 
tenga  con  tan  solo  el  cambio  de  una 
fuente  de  alimentación  por  otra  y 
segundo,  el  evitar  calentamientos 
innecesarios,  cosa  que  por  otro 
lado  hemos  detectado  se  produce 
en  el  prototipo  con  excesiva  facili¬ 
dad  en  la  parte  inferior  izquierda; 
naturalmente  Sprectravideo  ya  lo 
había  detectado,  pués  ha  dotado  a 
la  máquina  de  una  gran  cantidad  de 
rendijas  de  ventilación. 

EL  SOFTWARE 

Spectravideo,  consciente  de  que 
el  éxito  de  un  sistema  no  está  solo 


X’PRESS  ESPECIFICACIONES 

—  RAM:  64  K 

—  VIDEO  RAM:  16  K 

—  ROM:  32  K 

—  TECLADO:  Tipo  Qwerty  de  73  teclas 

—  ALMACENAMIENTO  >DE  DATOS:  Una  dis- 

quetera  de  3,5  pulgadas 
con  conector  para  un 
segundo  DISK-DRIVE  y 
conector  para  cassette. 

—  Salidas  Video:  Conector  con  señal  modulada 

para  TV  y  salida  de  monitor  de  señal 
compuesta. 

—  Modos  de  Pantalla:  40  y  80  columnas. 

—  Puertos  para  Cartuchos:  Uno. 

—  Puertos  paralelo:  Uno  de  tipo  Centronics. 

—  Puertos  serie:  Uno  de  tipo  RS  232  C. 

—  Puertos  Joystick:  Dos. 
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Key  Panel 

plantillas  troqueladas  especiales 
para  colocar  sobre  el  tediado 
de  Spectrum. 


Colección  tus  Juegos  Single 
20  estuches  de  lujo  con  un  programa 
para  Spectrum  48  k 
incluyendo  manual  en 
castellano. 


^^^^nevista  con 
cassette  de  A 
juegos  de  ü 
aparición  ír* 
mensual  /qgSH 
con  pro-  Jfegj 
gramas  / 
didácticos 

para  Éa  7¡¡t  , 
Spectrum 


Games  Board 
carcasa  mol-  ” 
deada  para 
colocar  sobre 
el  techado  del 
Spectrum,  con 
pivotes  móviles 
para  indicar  las 
teclas  a  utilizar 
en  cada  programa. 


¥  Colección 
w  tus  juegos  4 

5  estuches  de  lujo  con 
4  programas  cada  uno 
incluyendo  manual  de 
instrucciones  en  castellano 
para  Spectrum  48  K. 


Seis  ca¬ 
ssettes  con  A 
programas  A 
estrellas  pre-M 
sentados  en 
estuche  de 
lujo  para 

Spectrum  MJk.  S 
48  K 

P.V.P.  1.795 
Catálogo  con 

ínstmcciones  en  castellano. 


Revista  con 
cassette 
de  juegos  de 
aparición  i 
mensual  para  * 
Spectrum  48  K. 


MONSER,  S.A. 

0/  Argos,  9 
28037  Madrid 
Tlf.  742  72  12  /  96 


Revista 

mensual 

con 

cassette 
para  / 

MSX.  k 


Interface  para 
Joystick  de 
doble  salida,  especial 
para  Spectrum. 


Revista  mensual 
con  programas  listados  para 
Spectrum,  MSX,  Amstrad  > 
Commodore.  incluyendo  cinta 
virgen. 


Lápiz  de  Luz  para  Spectrum. 


Joystick 
Quinckshot  I 


Cassette  virgen  . 
C-30,  especial 
para  ordenadores. 


Uw 


Joystick 
< Challenger * 


|AQUASKti 


Dos  programas 

de  juegos  para  Spectrum  48  K, 
con  cinta  virgen  de  regalo. 


Joystick 
Quickshot  II 


teclado  profesional  especial 


Nota:  Todos  los  cassettes  llevan  los 
grabados  en  ambas  caras. 


programas 


para  ordenadores. 


